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1.0 



ABSTRACT 



THE RKU LOGIC TESTS CONSIST OF A SERIES OF TESTS 
AIMED AT CHECKING THE BASIC LOGIC OF THE PKll 
CONTROLLER, 

THE LOGIC TESTS CONSISTS OF TWO PARTS, THIS PROGRAM 
IS PART-I AND IT CHECKS ONLY THE DRIVE-INDEPENDENT 
LOGIC OF THE RKll CONTROLLER CSEE SEC, 9-0), IT 
SHOULD BE NOTED THAT LOGIC TEST-I AND LOGIC TEST-II 
TOGETHER CONSTITUTE A COMPLETE PROGRAM AND HENCE 
BOTH OF THEM SHOULD BE RUN, 

USED CORRECTLY THIS PROGRAM CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL, 



2.0 REQUIREMENTS 

2.1 EQUIPMENT 

A, PDPli WITH CONSOLE TELETYPE, 

B, 8K OF MEMORY 

C, RKU OR RKVll CONTROLLER 

2.2 PRELIMINARY PROGRAMS 
NONE 

2.3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDPil/20 WITH CORE MEMORY 
TAKES APPROXIMATELY ONE MINUTE, CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES, 



3,0 STARTING ADDRESS 

200 FOR ANY MODE OF OPERATION, NORMAL START UP WITH 
ALL SWITCHES DOWN, 



4.0 PROGRAM CONTROL MODES t OPERATOR ACTION 

PAPER TAPE LOADING 
RKOP DUMP MODE 
RKDP CHAIN MODE 
ACTll 

4.1 PAPER TAPE LOADING 

4.1.1 LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR ,ABS TAPES, 

4.1.2 PUT THE DRIVES ON 'WRT PROT' AND 'LOAD* AS A 
PRECAUTION AGAINST MALFUNCTIONING. 

4.1.3 LOAD ADDRESS 200 



4.1.4 SET SWITCHES IF DESIRED (SEE SEC 5.0) IF TESTING ON 
SIMULATOR PUT SW 10 UP. 

PRESS START, 

4.1.5 THE PROGRAM IDENTIFIES ITSELF ( NAME* MAINDEC NO), 

RKll LOGIC TEST I 
MAINDEC-U-DZRKJ-D 

4.1.6 THEN THE PROGRAM PROCEEDS WITH TESTING, AT THE END 
OF A PASS THE FOLLOWING TYPE-OUT OCCURS 

END PASS # X 

WHERE X« PASS NUMBER (1,2,3 — ), CONTROL IS PASSED 
TO THE BEGINNING OF THE PROGRAM AND RE-EXECUTION 
BEGINS, 



4,1.7 ERROR FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 
BELOW, 

RKll LOGIC TEST I 

MAINDEC-ll-DERKJ-D 

END PASS I 1 

END PASS ff 2 

• • • 

... 



4.2 RKDP DUMP MODE 

4.2.1 THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 

4.2.2 START AS NORMALLY USING SA 200 

4.2.3 THE PROGRAM IDENTIFIES ITSELF (NAME, MAINDEC NO.) AND 
PROCEEDS WITH TESTING, 

4.3 RKDP CHAIN, MODE 

THE PROGRAM IS CHAIN-LOADED FROM THE RKDP PACK, AFTER 
THE PROGRAM IDENTIFIES ITSELF, IT PROCEEDS WITH TESTING, 

4.4 ACTU MODE 

THE PROGRAM IS LOADED BY THE ACTU MONITOR, ON 
STARTING, IDENTIFIES ITSELF, PROCEEDS WITH THE 
EXECUTION OF THE TESTS AS BEFORE, 



5,0 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (I,E. AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 



'SOFTWARE' SWITCH REGISTER IS LOCATED AT LOCATION 176 (8), THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G', THE PROGRAM WILL 

RECOGNIZE THE 'CONTROL G' whenever the program enters 
the scope routine or begins i new test, the 

'SOFTWARE' SWITCH VALUE? ^RE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

♦SWR ■ NNNNNN NEW »' 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED, LEADING ZEROS ARE NOT REQUIRED,, 'RUBOUT* AND 
'CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY, 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
'UP' POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
♦SOFTWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED. 



SW<15>»1 
5W<14>al 
SW<13>«1 
SW<12>»1 

SW<11>«1 
SW<10>»1 
SW<09>sl 
SW<08>B1 

5.1 SW<15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTINENT 
INFORMATION, PRESSING "CONTINUE" RESTORES NORMAL 
OPERATION OF THE PROGRAM, 

5.2 SW<14> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON, THIS SWITCH IS 
USED NORMALLY ALONG WITH SW IS. SEE SEC 6,0, 

5.3 SW <13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED WHEN LOOPING ON TEST (SW 14) OR LOOPING ON 
ERROR (SW 9), 

5.4 SW <12> 

THIS SWITCH ALLOWS THE PORGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT, 
NOTE THAT IN DOING SO ANY INITIALIZATION BEING DONE 
AT THE BEGINING OF THE SUBTEST WILL BE DONE AGAIN 
AND AGAIN, SEE SEC 8,0 FOR DIFFERENT SCOPE LOOPS 
AVAILABLE. 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERROR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

'SCOPE' STATEMENT 

INHIBIT ITERATIONS 

TESTING ON SIMULATOR 

LOOP ON SPECIFIC ERROR 

LOOP ON TEST AS PER SW<07:00> 



5.5 SW <11> 

EACH SUBTEST WILL BE EXECUTED ONLY ONCE, NORMALLY 

AFTER THE FIRST PASS, EACH SUBTEST IS ITERATED A 
NUMBER OF TIMES (USUALLY 50, 5 IN SOME CASES). 
SETTING THIS SWITCH INHIBITS ITERATIONS, SO THAT 
QUICK PASSES CAN BE MADE, 

5.6 SW <10> 

THIS SWITCH WHEN SET INDICATES THAT TESTING IS BEING 
DONE ON A SIMULATOR, THE SWITCH SHOULD BE PUT UP 
BEFORE START- ING THE PROGRAM, NOTE THAT RKUC IS 
NOT COMPATIBLE WITH THE SIMULATOR, 

5.7 SW <09> 

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOP, NOTE THAT UNLIKE SW12 THE INITIALIZATION OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE IN THIS CASF, THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERROR, (EXAMPLE! RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FROM 1 TO 177777, 
PATTERN 561 IS GIVING ERROR, YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE 561TH PATTERN, IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561TH PATTERN ONLY.) 

5.8 SW <08^ 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS 
PER SW<00-07>) FOR EXECUTION AND SUBSEQUENT LOOPING. 
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
WOULD BE 000415, IT SHOULD BE NOTED THAT BEFORE 
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1-14) 
WILL BE EXECUTED, 



6,0 SCOPE LOOPS 

THERE ARE THREE KINDS OF SCOPE LOOPS AVAILABLE 

1, SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 

2, SW12J LOOPING IS DONE FROM THE POINT OF ERROR 

BACK TO THE PREVIOUS 'SCOPE' STATEMENT, 

3, SW09: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 

SEE SEC, 5,7 

EXAMPLEI 
TSTl: SCOPE 



INITIALIZATION 



ERROR I 
t 

ERROR 2 
i 

ERROR 3 
I 

ERROR 4 

t 

t 

TST2I SCOPE 

THE SEQUENCE OF LOOPING FOP DIFFERENT CASES IS 
EXPLAINED BELOW. NOTE THAT 'TSTl' AND •TST2' ARE 
TAGS WHICH DEFINE THE BOUNDARY OF A TEST, (IN THIS 
CASE TEST 1), TEST 1 STARTS AT 'TSTl* AND ENDS JUST 
BEFORE 'TST2', 

IN THE ILLUSTRATION BELOW --> INDICATES THE POINT 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE. 

1, ERROR 2 OCCURS, SW 14 SET, 

TSTl., ERROR 2 , ,TST2— >TST1 , .ERROR 2 , . TST2— >TST1 , , , 

2, ERROR 2 OCCURS, SW 12 SET. 

TSTl . , .ERROR 2— >TST1 , , ,ERR0R2— >TST1 . . . 

3, ERROR 2,3} SW 14 SET. 

TSTl,. ERROR 2., ERROR 3 . ,TST2— >TST1 , .ERROR 2,. ERROR 
3.,TST2— >TST1... 

4, ERROR 2,3| SW 12 SET. 

TSTl... ERROR 2">TST1 ,, .ERROR 2— >TST1,,., 

NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED, THE MORE BASIC AND ERROR THE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED, 

IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING REPEATED USING DIFFERENT PARAMETERS, HENCE IT 
SO HAP- PENS THAT SW 9 AND 12 GIVE THE SAME KIND OF 
LOOPS, THE EXAMPLE BELOW WILL DEMONSTRATE THE 
DIFFERENCE BETWEEN SW 9 AND 12, 

TSTl J SCOPE 
t 

INITIALIZATION 
I 

ERROR 1 
t 

MOV ill,ILPERR 



i 

ISt 1 
I 



?'$LPERR' CONTAINS 
JTHE ADDRESS TO LOOP 
JBACK ON ERROR- SW 9 



ERROR 2 IN REPETITIONS 
: I 
TST2J SCOPE 

1 . SW 12 SETi ERROR 2 OCCURS DURING K.TH 
REPETITIONS 

TSTl, .1,2, ,,K, ERROR 2— >T5T1 , . 1 # 2 . , . K .ERROR 2">TST1,, 

2, SW 9 SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1$,,K. .ERROR 2— >18,.K.,ERR0P 2— >1«.,, 



7.0 PROGRAM DESCRIPTION 

IN THIS PART OF THE PROGRAM THAT PART OF THE RKll 
CONTROLLER IS CHECKED WHICH DOES NOT DEPEND ON 
SIGNALS FROM THE DRIVE. THUS A DRIVE IS NOT NEEDED 
FOR THIS TEST, BUT IT SHOULD BE NOTED THAT THE 
PART-II OF THE 'BASIC LOGIC TESTS' MUST BE PUN, IM 
ORDER TO GET A COMPLETE COVERAGE. 

THE TESTS ARE GRADUALLY BUILT UP, CHECKING THE MOST 
BASIC AND SIMPLE LOGIC FIRST AND THEN PROGRESSIVELY 
MORE COMPLEX LOGIC, 

THE FIRST TEST CHECKS THAT ALL RKll REGISTERS CAN BE 
REFERENCED WITHOUT TIMING OUT, THEN THE 
INITIALIZATION LOGIC OF RKU IS CHECKED. THEN IT IS 
CHECKED THAT ALL REGISTERS CAN BE WRITTEN AND READ 
CORRECTLY, BY FLOATING A '1' AND THEN USING A COUNT 
PATTERN, THEN IT IS CHECKED THAT THE RKll REGISTERS 
CAN BE CLEARED USING CONTROL RESET AND RESET (BUS 
INIT), FINALLY, THE WORD AND BYTE ADDRESSING LOGIC 
OF RKU IS CHECKED TO SEE THAT EACH REGISTER IS 
UNIQUELY ADDRESSED, 



8.0 ERROR REPORTING 

THE ERROR TABLE STARTING AT $ERRTB CONTAINS 
INFORMATION PERTAINING TO EVERY ERROR THAT CAN 

OCCUR, EACH ITEM IN THE TABLE CONSISTS OF FOUR 
ENTRIES, 

A. EM - THIS IS A POINTER TO THE ERROR MESSAGE TO 

BE TYPED OUT WHEN THE ERROR OCCURS, 

B. DH - THIS IS A POINTER TO THE DATA HEADER TO BE 

TYPED OUT, 

C. DT - THIS IS A POINTER TO THE DATA WHICH IS TO 

BE TYPED TYPED OUT UNDER THE HEADERS, 

D. - THIS IS A TERMINATOR SIGNIFYING THE END OF 
THE ITEM, 



THE ERROR CALL IS AN EMT INSTRUCTION WITH ITS LOWER 



BYTE ENCODED TO INDICATE THE ERROR NUMBER, THUS 
"ERROR 1" WOULD BE (EMT+l) IE 104001, 

EVERY ERROR CORRESPONDS TO AN ITEM IN THE ERROR 
TABLE. THUS "ERROR 14" WOULD CORRESPOND TO ITEM 14, 
AS FAR AS POSSIBLE, THE ERROR MESSAGES HAVE BEEN 
KEPT SHORT, BUT CLARITY IS NOT SACRIFICED FOR 
BREVITY, INSPITE OF THIS, IF THE USER FINDS A NEED, 
HE CAN LOOK UP THE ENTIRE ERROR MESSAGE IN THE ERROR 
ITEMS TABLE FOUND IN THE BEGINNING OF THE LISTINGS, 
THUS FOR "ERROR 14", "ITEM 14" IN THE ITEM TABLE CAN 
BE LOOKED UP, WHEN THE ERROR INSTRUCTION IS 
EXECUTED A TRAP OCCURS TO THE ERROR HANDLER LOCATED 
AT SERROR WHICH PROCESSES THE ERROR CALL, SEE SEC 
12.3 



9,0 ERROR INTERPRETATION 

WHENEVER AN ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS AND OTHER DATA PERTAINING TO THE ERROR ARE 
ALSO GIVEN, RKDS, RKER,,,RKBA INDICATE THE CONTENTS 
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR, 

EVERY ERROR MESSAGE CONTAINS A PC, THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED, THE ERROR MESSAGE, BECAUSE OF 
PRACTICAL CONSIDERATIONS IS MADE SHORT AND 
MEANINGFUL, THE USER IS ADVISED TO LOOK UP THE PC 
IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE 
INFORMATION ABOUT THE ERROR, IN MANY INSTANCES, A 
SINGLE FAULT WILL GIVE RISE TO MORE THAN ONE ERROR 
REPORT, A LITTLE DELIBERATION AND CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL IN PINPOINTING THE FAULT, A BRIEF 

EXPLANATION OF WHAT IS BEING CHECKED IN THE SUBTEST 
IS GIVEN AT THE BEGINNING OF EVERY SUBTEST, ALL THE 
NUMBERS GIVEN WITH ERROR MESSAGES ARE IN OCTAL, 



10.0 HANDLERS AND COMMON ROUTINES 

THE COMMONLY USED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS, 

A, AS A SUBROUTINE THROUGH 'JSR* CALL 
8, THROUGH A 'TRAP' HANDLER 

10.1 TRAP HANDLER 

MANY COMMONLY USED ROUTINES IN THE PROGRAM ARE 
CALLED USING THE TRAP INSTRUCTION AND THE 'TRAP* 
HANDLER, THE LOWER BYTE OF THE TRAP INSTRUCTION IS 
ENCODED DIFFERENTLY FOR DIFFERENCT ROUTINES, THE 
TRAP HANDLER IS LOCATED AT 'STRAP*. WHEN A CALL FOR 
A ROUTINE IS EXECUTED, A TRAP OCCURS TO THE HANDLER 
AT '$TRAP', THE HANDLER PICKS UP THE LOWER BYTE OF 
THE "CALL INSTRUCTION" AND USES IT TO FORM THE 



STARTING ADDRESS OF THE ROUTINE TO GO TO FOP 
SERVICE, 



10,2 SCOPE HANDLER 

THE 'lOT* TRAP IS USED BY THE 'SCOPE' STATEMENT, 
WHEN 'SCOPE* IS EXECUTED! AN lOT TRAP OCCURS TO 
MEMORY LOCATION 'SSCOPE'. THE SCOPE HANDLER STARTS 
AT $SCOPE, DEPENDING ON THE SWITCH SETTINGS THE 
HANDLER DECIDES TO LOOP ON TEXT, INHIBIT ITERATIONS 
ETC, THERE ARE CERTAIN POINTERS AND FLAGS WHICH ARE 
ADJUSTED, THUS, IT IS NOT ADVISABLE TO START THE 
PROGRAM AT ANY GIVEN LOCATION SINCE THE VARIOUS 
POINTERS AMD FLAGS MAY NOT BE CORRECTLY ADJUSTED, 



10,3 ERROR HANDLER 

AN EMT TRAP INSTRUCTION IS USED BY THE ERROR CALL, 
THE LOWER BYTE IS ENCODED TO GIVE DIFFERENT ERROR 
CALLS, (EXJ ERROR 1 « 104000+1 f ERROR 16 e 
104300+16), WHEN THE ERROR STATEMENT IS EXECUTED, A 
TRAP OCCURS TO MEMORY LOCATION 'SERROR', THE ERROR 
HANDLER IS LOCATED AT 'SERROR', THE HANDLER FORMS 
THE POINTER TO ERROR TABLE, WHICH IS USED IF AN 
ERROR MESSAGE IS TO BE TYPED OUT, DEPENDING ON THE 
SWITCH SETTINGS, A DECISION ABOUT HALTING ON ERROR, 

INHIBITING TYPEOUT, LOOPING ON ERROR ETC, IS MADE. 

IF AN ERROR MESSAGE IS TO BE TYPED OUT AN EXIT IS 

MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT 
•$ERRTYP', 



10.4 CONTROL RESET ROUTINE 

THE CALL FOR THIS ROUTINE IS "CNT, RESET" AND IS AN 
ENCODED 'TRAP* INSTRUCTION, WHEN "CNT, RESET" IS 
EXECUTED THE CONTROL RESET ROUTINE STARTING AT 
"CN.RST" IS ENTERED, A CONTROL RESET IS ISSUED AND 
THE PROGRAM WAITS TILL THE CONTROL READY SETS, ON 
WHICH THE ROUTINE IS EXITED, IF CONTROL READY DOES 
NOT SET WITHIN A CERTAIN TIME AN ERROR IS REPORTED, 
THE PC TYPED OUT IS THE LOCATION WHERE THE 
"CNT, RESET" CALL IS LOCATED, THE WAITING TIME IS 
2,8 MS FOR 11/20 AND 560 US FOR 11/45 WITH BIPOLAR 
MEMORY, 

10.5 CONTROL READY ROUTINE 

THIS ROUTINE IS CALLED BY ''CNT,RDY" (AN ENCODED 
'TRAP' INSTRUCTION) AND IS LOCATED AT "CN.RDY", THE 
ROUTINE WAITS FOR THE CONTROL READY TO SET AND WHEN 
IT DOES, EXITS OUT, IF CONTROL READY DOES NOT SET 
WITHIN A SPECIFIED TIME AN ERROR MESSAGE IS GIVEN 

CNTRL RDY DIDN'T SET 

PC s XXXXXX RKCS b YYYYYY 



THE PC IS THE LOCATION AT WHICH THE "CNT.RDY" CALL 
IS LOCATED, THE WAITING TIME IS 949 MS FOR 11/20 
AND 189 MS FOR 11/45 WITH BIPOLAR MEMORY, 



10,6 TIME DELAY ROUTINE 

THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE 
CALL IS DELAY #N WHERE N»l TO 177777 (OCTAL) TIME 
DELAY PROVIDED* 7,5 TIMES( X ) N MICRO SECS FOR 
ll/20# 1,5N US FOR U/45 (N CONVERTED TO DECIMAL 
BEFORE COMPUTING DELAY) IF THE USER WANTS TO CHANGE 
THE DELAY AT ANY POINT IT CAN BE DONE BY SIMPLY 
CHANGING VARIABLE 'N', 



10,7 OTHER ROUTINES 

THERE ARE OTHER COMMONLY USED ROUTINES AS LISTED 
BELOW. 

$TYPEI 

TYPE ROUTINE FOR TYPING OUT ASCII STRINGS, 
LOCATED AT "$TYPE" 
CALLED BY "TYPE" 

$TYP0CI 

ROUTINE FOR TYPING OUT OCTAL NUMBERS, 
LOCATED AT "STYPOC" 
CALLED BY "TYPOC" 

$TYPDSI 

ROUTINE FOR TYPING OUT DECIMAL NUMBERS. 
LOCATED AT "STYPDS" 
CALLED BY "TYPDS" 



SERRTYPI 

ROUTINE FOR TYPING OUT ERROR MESSAGES. 
LOCATED AT SERRTYP 
CALLED BY "JSR 5ERRTYP" 

$PWRDNr$PWRUPt 

ROUTINE FOR HANDLING POWER FAILURE/POWER UP. 
LOCATED AT SPWRDN, $PWRUP 

IPHRFLrCALLED WHEN THERE IS A POWER FAILURE. 
$PWRUP#CALLED WHEN THERE IS A POWER UP. 



11,0 UNEXPECTED TIMEOUTS AND RKll INTERRUPTS 

WHEN AN UNEXPECTED TIMEOUT OCCURS, THE PC AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND THE PROGRAM HALTS, 
IF IT IS INTACT, IT CAN BE RESTARTED BY PRESSING 
CONTINUE, 

IF AN UNEXPECTED RKll INTERRUPTlOCBURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEN HALTS, PRESSING CONTINUE WOULD RESTART THE 



PROGRAM FROM BEGINING, SW 9- LOOPING CAPABILITY IS 
PROVIDED AS A TROUBLE SHOOTING AID. 



12.0 QUICK VERIFYING MODE 



THE FIRST PASS OF THE PROGRAM IS A QUICK VERIFYING 
MODE, ALL THE TESTS ARE DONE ONLY ONCE# ON 
SUBSEQUENT PASSES THE TESTS ARE ITERATED (NORMALLY 
50 TIMES, 5 IN SOME CASES). THUS THE FIRST PASS 
TAKES A SHORTER TIME TO COMPLETE, WHEREAS SUBSEQUENT 
PASSES TAKE MORE TIME, 
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37 >»PROGPAM REVISED BY TOM SAWYER, MARCH 1976 

38 ;«REVISED BY CHUCK HESS, AUGUST 1976 

39 ;•«•»««»•«•»•*«••»•»«•••**»•••*»•••*••«•••••••«»•••»•••••••••«* 

40 

41 >YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 

42 

43 ;OIJ GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 

44 ;OUT IN THE ERROR MESSAGE. ADJACENT ERROR MESSAGES IF FOLLOWED 

45 TCAREFOLLY COULD LEAD TO AN EASY PINPOINTING OF THE FAULT 
46 

47 ;••*»'»••«»••••«••*•»•••••««••»••••••*•••*«•••••»«•••••••*••*«•«••• 

49 .SBTTL BASIC OEflNlTIONS 
49 

50 r»INITIAL ADDRESS OF THE STACK POINTER »•» 1100 

51 001100 STACK* 1100 

52 .EQUIV EMT, ERROR MBASIC DEFINITION OF ERROR CALL 

53 .EQUIV lOT, SCOPE IJBASIC DEFINITION OF SCOPE CALL 
54 

55 ;»HISCELL&NEOUS DEFINITIONS 

56 000011 HTs 11 »;CODE FOR HORIZONTAL TAB 



DZRKJD.Pl 1 


30.AUG.76 14(48 


BASIC DEFINITIONS 




57 


000012 


LF» 


12 


nCODE FOR LINE FEED 


58 


000015 


CR= 


15 


>>CODE FOR CARRIAGE RETURN 


59 


000200 


CRLF« 


200 


JJCODE FOR CARRIAGE RETURN. LINE FEED 


60 


177776 


PSs 


177776 


»; PROCESSOR STATUS WORD 


61 




•EQUIV 


PS,PSW 




62 


177774 


STKLMT= 


177774 


>) STACK LIMIT REGISTER 


63 


177772 


PIRQ* 


177772 


nPROGPAH INTERRUPT REQUEST REGISTER 


64 


177570 


DSWRx 


177570 


>> HARDWARE SWITCH REGISTER 


65 


177570 


DDISP» 


177570 


n HARDWARE DISPLAY REGISTER 


66 
67 




;»GENERAL PURPOSE 


REGISTER DEFINITIONS 


68 


000000 


R0a: 


%0 


nGENERAL REGISTER 


69 


000001 


PI* 


%1 


J ; GENERAL REGISTER 


70 


000002 


R2k 


%2 


M GENERAL REGISTER 


71 


000003 


R3» 


%3 


|> GENERAL REGISTER 


72 


000004 


R4« 


%4 


nGENERAL REGISTER 


73 


000005 


R5« 


%5 


nGENERAL REGISTER 


74 


000006 


R6> 


%6 


nGENERAL REGISTER 


75 


000007 


R7» 


%7 


-GENERAL REGISTER 


76 


000006 


SP» 


16 


nSTACK POINTER 


77 


000007 


PC» 


%7 


nPROGRAH COUNTER 


78 
79 




;»PRIORITY LEVEL 


DEFINITIONS 


80 


000000 


PR0» 





i; PRIORITY LEVEL 


91 


000040 


PR1« 


40 


nPRIORITY LEVEL 1 


82 


000100 


PR2> 


100 


nPRIORITY LEVEL 2 


83 


000140 


PR3» 


140 


n PRIORITY LEVEL 3 


84 


000200 


PR4« 


200 


nPRIORITY LEVEL 4 


85 


000240 


PR5> 


240 


nPRIORITY LEVEL 5 


86 


000300 


PRe« 


300 


nPRIORITY LEVEL 6 


87 


000340 


PR7« 


340 


nPRIORITY LEVEL 7 


88 










A9 




;*"SWITCH REGISTER" SWITCH DEFINITIONS 


90 


100000 


SW15a 


100000 




91 


040000 


SW14X 


40000 




92 


020000 


SW13« 


20000 




93 


010000 


SW12> 


10000 




94 


004000 


SHlla 


4000 




95 


002000 


SWl'0t 


2000 




96 


001000 


SW09« 


1000 




97 


000400 


sN0ac 


400 




98 


000200 


SH07V 


200 




99 


000100 


SW06* 


100 




100 


000040 


SW05« 


40 




101 


000020 


SH04* 


20 




102 


000010 


SH03« 


10 




103 


Q00004 


SW02S 


4 




104 


000002 


SW01S 


2 




105 


000001 


SH00« 


1 




106 




.EQUIV 


SW09,SH9 




107 




.EQUIV 


SW08,SW8 




108 




.EQUIV 


SW07,SW7 




109 




.EQUIV 


SW06,SW6 




U0 




.EQUIV 


SW05,SW5 




111 




.EQUIV 


SW04,SW4 
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SEQ ^016 



113 




.EOtllV 


SH02f 


SN2 


U4 




.EQUIV 


SM01, 


SWl 


115 




.EOUIV 


3H00, 


SW0 


116 










117 




J»DATA 


SIT DEFINITIONS (BIT00 TO BIT15) 


118 


100000 


BIT15« 


10000 





119 




BIT14« 


40000 




120 


020000 


BIT13a 


20000 




121 


010000 


B1T12" 


10000 




122 


004000 


BIT11» 


4000 




123 


002000 


BITie« 


2000 




124 


001000 


BII09* 


1000 




125 


000400 


BIT0e» 


400 




126 


000200 


B:T07» 


200 




127 


000100 


BIT06* 


100 




128 


000040 


B1T05» 


40 




129 


000020 


BIT04» 


20 




130 


000010 


B1T03» 


10 




131 


000004 


BIT02* 


4 




132 


000002 


BIT01- 


2 




133 


000001 


BIT00* 


1 




134 




.EQUIV 


BIT09 


(BIT9 


135 




.EQUIV 


BIT08 


(BITS 


136 




.EQUIV 


BIT07 


fBIT7 


137 




.EQUIV 


BIT06 


#8IT6 


138 




.EQUIV 


BIT05 


#B1T5 


139 




.EQUIV 


BIT04 


,BIT4 


140 




.EQUIV 


B1T03 


fBIT3 


141 




.EQUIV 


BITB2 


,BIT2 


142 




.EQUIV 


BIT01 


,BIT1 


143 




.EQUIV 


BIT00 


,BIT0 


144 










145 




!«BASIC 


"CPU" 


TRAP VECTOR ADDRESSES 


146 


000004 


EBRVEC" 


4 


IITIHE OUT AND OTHER ERRORS 


147 


000010 


RESVEC* 


10 


MRESERVED and illegal INSTRUCTIONS 


148 


000014 


TB1TVEC«14 


S»"T" BIT 


149 


000014 


TPTVEC* 


14 


i; TRACE TRAP 


150 


00001 4 


BPTVEC" 


14 


MBREAKPOINT TRAP CBPT3 


151 


000020 


lOTVEC* 


20 


MINPUT/OUTPUT TRAP CIOT) ••SCOPE** 


152 


000024 


PWRVEC* 


24 


(JPOHER FAIL 


153 


000030 


EMTVEC» 


30 


IJEMULATOR TRAP (EMT) ••ERROR** 


154 


000034 


TRAPVEC»34 


n'TRAP" TRAP 


155 


000060 


IKVEC" 


60 


) (TTY KEYBOARD VECTOR 


156 


000064 


TPVEC= 


64 


ISTTY PRINTER VECTOR 


157 


000240 


PIROVEC»240 


MPBOGRAH INTERRUPT REQUEST VECTOR 


158 




.SBTTL 


TRAP 


CATCHER 


159 










160 


000000 




.S0 





161 
162 
163 
164 
165 
166 
167 
168 



000174 
000174 000000 
000176 000000 

000200 000137 001542 



;»ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2. HALT" 
J^SEOUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
r»LOCATION H CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 
.■174 

DISPREGt .MORD ;jSOFTHARE DISPLAY REGISTER 

SWREGI .WORD ^SOFTWARE SWITCH REGISTER 

.SBTTL STARTING A0DBES5(ES) 

JMP »»START nJUNP TO STARTING ADDRESS OF PROGRAM 
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ACTll HOOKS 




169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 






.SBTTL ACTll HOOKS 




000046 
000052 


000204 
000046 
005370 
000052 
000000 
000204 


; ;•••»•••••••••«»#••••••••«•*••••••••••••••••••••»•••••••«••••••• 

;H0OKS RtQUlRED BY ACTll 

ISVPC». JSAVE PC 
.«46 

lENDAD ilDSET LOC.46 TO ADDRESS OF lENDAD 
.■52 

.WORD n2)SET L0C.52 TO ZERO 
.■«SVPC !I RESTORE PC 
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SEQ 0018 



180 






,SBm 


COMMON 


TAGS 




181 
182 






> 1 ••••••••«•••••••••••••••••••••••*•*••••«•••**»••••••••*•*•*««•* 


183 






J»TH1S TABtE CONTAINS VARIOUS 


COMMON STORAGE LOCATIONS 


184 






;«USED IN THE PROGRAM, 




185 
186 




001100 




.>1100 






187 


001 100 




SCMTAGt 






M START OF COMMON TAGS 


188 


001100 


000000 


SPASSi 


.WORD 


3 


SJCONiaiSS PASS COUNT 


189 


00] 102 


000 


8TSTNMJ 


.BYTE 





1 (CONTAINS THE TEST NUMBER 


190 


001103 


000 


tERFLGl 


.BYTE 





nCONTAINS ERROR FLAG 


191 


001104 


000000 


IICNT: 


.WORD 





SJCONTAINS SUBTEST ITERATION COUNT 


192 


001106 


000000 


8LPA0RI 


.MORD 





; (CONTAINS SCOPE LOOP ADDRESS 


193 


001 110 


000000 


SLPERRI 


.WORD 





((CONTAINS SCOPE RETURN FOR ERRORS 


194 


001112 


000000 


tERTTLI 


.WORD 





((CONTAINS TOTAL ERRORS DETECTED 


195 


001114 


000 


tITEMBi 


.BYTE 





((CONTAINS ITEM CONTROL BYTE 


196 


00111S 


001 


lERMAXi 


.BYTE 


1 


((CONTAINS MAX. ERRORS PER TEST 


197 


001116 


000000 


tERRPCl 


.WORD 





((CONTAINS PC OF LAST ERROR INSTRUCTION 


198 


001120 


000000 


IGDADRI 


.WORD 





((CONTAINS ADDRESS OF 'GOOD' DATA 


199 


001122 


000000 


$BDADRI 


.WORD 





((CONTAINS ADDRESS OF 'BAD' DATA 


200 


001124 


000000 


(GDDATt 


.WORD 





((CONTAINS 'GOOD' DATA 


201 


001126 


000000 


(BDDAT: 


.WORD 





((CONTAINS 'BAD' DATA 


202 


001130 


000000 




.WORD 





( (RESERVED— NOT TO BE USED 


203 


00)132 


008000 




.MOBO 







204 


001134 


000 


SAUTOBI 


.BYTE 





((AUTOMATIC MODE INDICATOR 


205 


001135 


000 


tINTAGt 


.BYTE 





((INTERRUPT MODE INDICATOR 


206 


001136 


000000 




.WORD 







207 


001140 


177570 


snp: 


.WORD 


DSWR 


((ADDRESS OF SWITCH REGISTER 


208 


001142 


177570 


display: 


.WORD 


DDISP 


((ADDRESS OF DISPLAY REGISTER 


209 


001144 


177560 


(TKS) 


177560 




((TTY KBD STATUS 


210 


001146 


177562 


fTKBI 


177562 




((TTY KBD BUFFER 


211 


001150 


177564 


tTPSI 


177564 




((TTY PRINTER STATUS REG. ADDRESS 


212 


001152 


177566 


ITPBJ 


177566 




((TTY PRINTER BUFFER REG. ADDRESS 


213 


001154 


000 


SNUIiLt 


.BYTE 





((CONTAINS NULL CHARACTER FOR FILLS 


214 


001155 


002 


$FILLSi 


.BYTE 


2 


((CONTAINS 1 OF FILLER CHARACTERS REQUIRED 


215 


001156 


012 


SFILLC: 


.BYTE 


12 


({INSERT FILL CHARS. AFTER A "LINE FEED" 


216 


001157 


000 


STPFIiGJ 


.BYTE 





(("TERMINAL AVAILABLE" FLAG (BIT<07>a0«YES) 


217 


001160 


000000 


$REGADt 


.WORD 





((CONTAINS THE ADDRESS FROM 


218 












((WHICH (tREG0) HAS OBTAINED 


219 


001162 


000000 


tREG0l 


.WORD 





((CONTAINS (C$REGAD}+0) 


220 


001164 


000000 


SREGl I 


.WORD 





((CONTAINS C(tREGA0)+2] 


221 


001166 


000000 


$RES2l 


.WORD 





{(CONTAINS (($REGAD)'f4) 


232 


001170 


000000 


(REG3> 


.WORD 





((CONTAINS (($REGAD)'*^6) 


223 


001172 


000000 


$RCG4t 


.WORD 





((CONTAINS CCtREGADl+lO) 


224 


001174 


000000 


gREGSt 


.WORD 





((CONTAINS (($RE6AD)+12] 


225 


001176 


000000 


$REG6t 


.WORD 





((CONTAINS (CSREGAD)+14) 


226 


001200 


000000 


«REG7| 


.WORD 





((CONTAINS (($REGAD)4'16} 


227 


001202 


000000 


<REG10t 


.WORD 





((CONTAINS (C$REGADH20] 


228 


001204 


000000 


SREGllI 


.WORD 





((CONTAINS CCSREGAD)+22) 


229 


001206 


000000 


STIMESt 







((MAX. NUMBER OF ITERATIONS 


230 


001210 


000000 


SESCAPEt 







((ESCAPE ON ERROR ADDRESS 


231 


001212 


077 


tQuesi 


.ASCII 


/?/ 


((QUESTION HARK 


232 


001213 


015 


»CRLF» 


.ASCII 


<15> 


((CARRIAGE RETURN 


233 


001214 


000012 


8LFI 


.ASCIZ 


<12> 


({LINE FEED 


234 






• J*************************************************************** 


235 


001216 


005015 047103 


020124 MSG3t 


.ASCIZ 


<15><12>/CNT 


RDY DIDN'T SET/ 
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COMMON TAGS 




236 


001224 


042122 


020131 


044504 






237 


001232 


047104 


052047 


051440 






238 


001240 


052105 


000 








239 




001244 






.EVEN 




240 














241 










(RKll REGISTERS 




242 










(IF FOR ANY REASON 


THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE 


243 










{(GIVEN BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 


244 










(MODIFIED SO THAT 


THE CORRECT ADDRESS IS USED. 


245 














246 










.EVEN 




247 


001244 


177400 






PKDSI 177400 




248 


001246 


177402 






RKERi 177402 




249 


001250 


177404 






RKCSI 177404 




250 


001252 


177406 






RKWCt 177406 




251 


001254 


177410 






RKBAI 177410 




252 


001256 


177412 






BKDA! 177412 




253 


001260 


177416 






BKOBt 177416 




254 














255 














256 










(TAGS AND GENERAL 


DATA AREA 


257 










( 




258 














259 














260 


001262 


000000 






ftitle: 


(FLAG FOR PRINTING PROGRAM TITLE 


261 


001264 


000000 






TIMERl 


(TIMER REGISTER 


262 


001266 


000200 






RKPRII 200 


(CONTAINS THE CPU LEVEL AT WHICH 


263 












(RKll NORMALLY INTERRUPTS. THIS WORD 


264 












{SHOULD BE CHANGED IF RKll IS DESINGATED 


265 












(A BR LEVEL OTHER THAN 5. E.G. IF IT IS CHANGED 


266 












(TO 6, THIS WORD SHOULD BE CHANGED TO 240. 


267 


001270 


000220 






RKVECS 220 


(CONTAINS THE NORMAL VECTOR ADDRESS TO WHICH 


268 












(RKll INTERRUPTS. IF THIS IS NOT SO, CHANGE 


269 












(THIS WORD TO CONTAIN MODIFIED VECTOR ADDRESS. 



SEQ 0019 
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SES 0020 



370 .SBTTL ERROR POINTER TABLE 

271 

373 {'THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 

373 ;«THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

374 ;*LOCATION IITEMB. THIS NUMBER INDICATES HHICH ITEM IN THE TABLE IS PERTINENT, 

375 |«NOTEtt IF tITEMB IS THE ONLY PERTINENT DATA IS CSERRPC). 

376 ;*N0Te2l EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLIiOHS: 
277 

378 EN M POINTS TO THE ERROR MESSAGE 

379 t* DH llPOINTS TO THE DATA HEADER 

280 >• DT 11 POINTS TO THE DATA 

281 DF nPOINTS TO THE DATA FORMAT 
383 

383 

384 001372 lERRTBI 

385 

286 

387 

388 

289 ;THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 

390 ;USEO IN THIS PROGRAM. AN ERROR CALL IN THE PROGRAM CORRESPONDS TO 

391 fTHE ITEM NUMBER IN THE ERROR TABLE. THUS 'ERROR 1' IN THE 
292 (PROGRAM CORRESPONDS TO 'ITEM 1' IN THE ERROR TABLE. 

393 ;'EMt«l' IS THE POINTER TO THE ERROR MESSAGE WHICH HILL BE TYPED 

294 JOOT IN CASE THAT ERROR WERE TO OCCUR. THUS FOR 'ERROR 1* THE ERROR 

295 ;MESSAGE TYPE OUT WILL BE 'TIME OUT ON RKU REG'. 

296 ;'DH*««' IS THE POINTER TO THE HEADER BLOCK WHICH WILL BE TYPED OUT 

297 (IMMEDIATELY AFTER THE ERROR MESSAGE. 

298 ;'DTt**' SERVES AS A POINTER TO THE MEMORY LOCATIONS WHERE 

399 (THE INFORMATION RELEVANT TO THE ERROR TYPE OUTS (LIKE PCr CONTENTS 

300 (OF RKCS ETC.) WILL BE PICKED UP FROM, 

301 (THE LAST ROW CONTAINING '0' SERVES AS A TERMINATOR. 
303 (EXAMPLEl 

303 (IF ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 

304 ((177400), BECAUSE OF SOME FAULT> THE FOLOWING TYPEOUT WOULD 

305 (OCCUR ON THE TELETYPE. 

306 ; 

307 > TIME OUT ON RKll REG 

308 ( PC REG 

309 ( *tl«»l 177400 

310 J 

311 (NOTE THAT *««f«ll WOULD BE THE ACTUAL PC WHERE 'ERROR 1' IS LOCATED. 
312 

313 (THE ERROR HANDLER IS LOCATED AT '»ERROR'. THE ERROR CALL IS AN 'EHT' 

314 (INSTRUCTION WITH ITS LOWER BYTE ENCODED TO PROVIDE INDEXING TO THE 

315 (ITEMS IN THE ERROR TABLE. 

316 (THUS 'ERROR 1' IS 104001 

317 ( 'ERROR 126' IS 104136 ETC. 
318 

319 
330 
331 
333 

323 (ERROR ITEMS TABLE 

324 

325 
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326 
337 
338 
339 
330 
331 
333 
333 
334 
335 
336 
337 
338 
339 
340 
341 
343 
343 
344 
345 
346 
347 
348 
349 
350 
351 
353 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 



(ITEM 1 



001272 
001274 
001276 
001300 



001302 
001304 
001306 
001310 



001312 
001314 
001316 
001320 



001323 
001324 
001326 
001330 



001332 
001334 
001336 
001340 



001342 
001344 
001346 
001350 



001353 
001354 
001356 
001360 



001363 
001364 
001366 
001370 



010316 
011S36 
0U4S6 



010350 
011546 
011464 
000000 



010375 
011633 
011464 
000000 



010410 
011575 
011464 



010455 
011650 
01 1496 



010511 
011650 
011456 



010567 
012301 
011514 
000000 



010636 
011546 
011464 



(ITEM 



(ITEM 



(ITEM 



EHi 

OHl 
DTI 




EM3 

0H3 
0T2 



EM 3 
DH3 
DT2 




EM4 
DH4 
0T2 




EMS 
0H5 
DTI 




EM6 
DHS 
DTI 




EM7 
DH30 
DT36 




(ITEM 10 



EM10 

DHS 

DT3 



(TIME OUT ON RKli 
(PC REG 
(tERRPC tREG0 



(REGISTER NOT CLEARED 
(PC REGADD RECVD 

(lERRPC (REG0 tREGl 



(RKCS ERROR 
(PC WROTE 
($ERRPC 8REG0 



READ 
IREGl 



(RKCS ERROR-ON WRITING READ ONLY BITS 
(PC EXPCT RECVD 

(lERRPC IREG0 IREGl 



(BUS INIT DID NOT CLEAR RKCS 
(PC RECVD 
(tERRPC tREG0 



('CNTRL RESET' DIDN'T CLEAR RKCS, 
(PC RECVD 
(lERRPC IREG0 



ON SETING GO 



(•CNTRL RDY' DIDN'T SET AFTER CONTROL RESET 
(PC RKCS RKER RKDS 

(IBRRPC IREC0 IREGl tREG3 



(REGISTER NOT CLEARED 
IPC REGADD RECVD 

I lERRPC IREG0 IREGl 
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S£Q 0222 



382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
403 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 



001372 
001374 
001376 
001400 



001402 
001404 
001406 
001410 



001412 
001414 
001416 
001420 



001424 
001426 
001430 



001432 
001434 
001436 
001440 



00)442 
001444 
001446 
001450 



001452 
001454 
001456 
001460 



001462 
001464 
001466 
001470 



010663 
011666 
011464 
000000 



011423 
011713 
011510 
000000 



010676 
011666 
011464 
000000 



010711 
011546 
011464 
000000 



010753 
011666 
011464 
000000 



011301 
012067 
011514 
000000 



010766 
011546 
011464 

000000 



011022 
011720 
011474 

000000 



EMll 
DHll 
DT2 



12 

EM43 
0H21 
0T21 




TITEH 13 



EM13 
DHll 
DT2 




JITEH 14 



ES14 

DH2 

DT2 



15 

EM15 
DHll 
DT2 


16 

EM26 
0H26 
DT26 




EM17 

0H2 

DT2 



EM20 
DH20 
DT20 



>RKWC ERROR 
JPC WROTE 
ISERRPC $REG0 



READ 
SREGl 



I UNEXPECTED RKU INTERRUPT 
JPC 

ISERRPC 



JRKBA ERROR 
JPC WROT 
JtERRPC (REG0 



READ 
«REG1 



JPC REGADD RECVD 

fSERRPC tREG0 SREGl 



JRKDA ERROR 
JPC WROTE 
ISERRPC $RE60 



READ 
SREGl 



IRKCS ALTERERED ON CLEARING 'REG-BYTE' 
fPC REG-BYTE (RKCSJEXP CRKCSJRECVD 

jSERRPC $RE60 SREGl SREG2 



(BUS INIT DIDN'T CLEAR REGISTER 
»PC REGADD RECVD 

JSERRPC SREG0 SREGl 



J ADDRESSING ERROR-TRIED TO ADDRESS REGli 
JPC REGl REG2 (REGl) CREG2} 

JSERRPC SREG0 SREGl SREG2 SREG3 



MAINOEC 
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ERROR POINTER 


TABLE 


438 










J ITEM 


21 




439 
















440 


001472 


011345 








EM27 


JTRIEO TO CLEAR 'REG-BYTE'» CHANGED 'REG-BYT2' 


441 


001474 


012131 








DH27 


JPC REG-BYTl REG-ByT2 b"2"EXPCT 


442 


001476 


011474 








DT20 


JSERRPC SREG0 SREGl SREG2 


443 


001500 


000000 













444 
















445 










J ITEM 


22 




446 
















447 


001502 


011103 








EM22 


J DID NOT CLEAR RKCS LO BYTE 


448 


001504 


011575 








DH4 


JPC EXPCT RECVD 


449 


001506 


011464 








DT2 


JSERRPC SREG0 SREGl 


450 


001510 


000000 













451 
















452 










JIEH 


23 




453 
















454 


001512 


011136 








EH23 


JDID NOT CLEAR RKCS HI BYTE 


455 


001514 


011575 








DH4 


JPC EXPCT RECVD 


456 


001516 


011464 








DT2 


JSERRPC SREG0 SREGl 


457 


001520 


000000 













458 
















459 










; ITEM 


24 




460 
















461 


001522 


011172 








EM24 


JTRIED TO CLEAR RKCS 'BYTE', CHANGED 'REGIS' 


462 


001524 


011767 








DH24 


jPC BYTE REGIS (REG)EXP (REG)RECVD 


463 


001526 


011474 








DT20 


JSERRPC SREG0 SREGl SREG2 SREG3 


464 


001530 


000000 













465 
















466 










JITEM 


25 




467 
















468 


001532 


011246 








EH2S 


J FAILED TO CLEAR 'REG-BYTE' 


469 


001534 


012041 








DH25 


IPC REG-BYTE RECVD 


470 


001536 


011464 








DT2 


JSERRPC SReG0 SREGl 


471 


001540 


000000 













472 
















473 
















474 
















475 
















476 


001542 


000005 






start: 


RESET 


JCLEAR THE BUS 


477 










.SBTTL 


INITIALIZE THE COMMON TAGS 


478 










I JCLEAR 


THE COMMON TAGS (SCMTAG) AREA 


479 


001544 


012706 


001100 






MOV 


ISCMTAGfR6 JjriRST LOCATION TO BE CLEARED 


480 


001550 


005026 








CLP 


IW* ;jCIiEAR HEMORY LOCATION 


481 


001552 


022706 


001140 






CMP 


tSHR«R6 JJOONET 


482 


001556 


001374 . 








BNG 


.-6 J 1 LOOP BACK IF NO 


483 


001560 


012706 


001100 






MOV 


tSTACK>8P J 1 SETUP THE STACK POINTER 


484 










JJINITIALIZE A 


FEW VECTORS 


485 


001564 


012737 


005632 


000020 




MOV 


tSSCOPGf tllOTVEC J HOT VECTOR FOR SCOPE ROUTINE 


486 


001572 


012737 


000340 


000022 




MOV 


l340,ftIOTVEC+2 JjLEVEL 7 


487 


001600 


012737 


006104 


000030 




MOV 


tSERRORftlEMTVEC JJEHT VECTOR FOR ERROR ROUTINE 


488 


001606 


012737 


000340 


000032 




MOV 


*340,»*ENTVECt2 JjLEVEL 7 


489 


001614 


012737 


010046 


000034 




MOV 


tlTRAP,»«TRAPVEC JjTRAP VECTOR FOR TRAP CALLS 


490 


001622 


012737 


000340 


000036 




MOV 


t340(»*TRAPVEC'»^2jLEVEb 7 


491 


001630 


012737 


010134 


000024 




MOV 


«*PHRDN«»tPHRVEC IJPOHER FAILURE VECTOR 


492 


001636 


012737 


000340 


000026 




MOV 


t340,»«PIIRVECt2 If LEVEL 7 


493 


001644 


005037 


001206 






CLR 


STIMES JJINITIALIZE NUMBER OF ITERATIONS 



BYT2-RECVD 
SREGS 
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SEQ 0024 



494 


001650 


005037 


495 


001654 


1 13737 


496 


001663 


013737 


497 


001670 


013737 


498 






499 






500 


001 676 


013746 


501 


001703 


012737 


503 


001710 


012737 


503 


001716 


012737 


504 


001734 


022777 


505 


001732 


001012 


506 






507 


001734 


000403 


508 


001736 


012716 


509 


001743 


000003 


510 


001744 


012737 


511 


001752 


012737 


513 


001760 


012637 


513 






51 4 






515 






516 


001 764 


005327 


517 


001770 


001043 


518 


001772 


104401 


519 






520 


001776 


005737 


531 


003002 


001006 


533 


003004 


023727 


533 


003012 


001005 


534 


003014 


104406 


525 


003016 


000403 


536 


003030 


112737 


537 


003036 




528 


003036 


000424 


539 






530 


003100 




531 






532 


003100 


012737 


533 






534 


003106 


012777 


535 






536 


002114 


000516 


517 






538 






539 






540 






541 






542 






543 


002 116 


011 600 


544 


002120 


005740 


545 


002123 


022626 


546 


002124 


104401 


547 


002130 


000417 


548 






549 


002170 





001210 
000001 
001662 
001670 



000004 
001736 
177570 
177570 
177777 



001744 

000176 
000174 
000004 



177777 
002030 
000042 
001140 



002116 
002202 



001115 
001106 
001110 



000004 
001140 
001142 
177206 



001140 
001142 



91134 



000004 
177154 



CLR 
MOVB 
MOV 
HOV 

>;SIZE rOR A 
M EQUAL TO A 
MOV 
MOV 
HOV 
MOV 
CMP 
BNE 

64*1 ^V 

RTI 

6511 HOV 

HOV 

6611 MOV 



(ESCAPE n CLEAR THE ESCAPE ON ERROR ADDRESS 

*1>IERMAX MALLOW ONE ERROR PER TEST 

*.r*LPADR n INITIALIZE THE LOOP ADDRESS FOR SCORE 

*,»ILPERR n SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

) I SAVE ERROR VECTOR 
nSET UP ERROR VECTOR 
nSETUP FOR A HARDWARE SWICH REGISTER 
HAND A HARDWARE DISPLAY REGISTER 
(ITRT TO REFERENCE HARDWARE SWR 
M BRANCH IF NO TIMEOUT TRAP OCCURRED 
MAND THE HARDWARE SWR IS NOT < -1 
n BRANCH IF NO TIMEOUT 
>|SET UP FOR TRAP RETURN 



*IERRVEC,«(SP) 

I64I,»*ERRVGC 

tDSWRfSWR 

tDDISPfDISPLAY 

l>l,8SWR 

66t 



651 
165*1 



CSP) 



ISHREGfSWR MPOIHT TO SOFTWARE SWR 

*OISPREG> DISPLAY 

(SP)'f.»tERRVEC RESTORE ERROR VECTOR 



.SBTTL TYPE PROGRAM NAME 
nTYPE THE NAME OF THE PROGRAM 

IMC t-l 

BNE 671 

TYPE 1 681 
.SBTTL GET VALUE FOR SOFTWARE 



6911 
7011 



; |68ti 
67lt 



TST 

BNE 

CMP 

BNE 

GTSWR 

BR 

MOVB 
BR 

.ASCIZ 



• t42 
69* 

SWRrtSWREG 
70* 

70* 

tUtAUTQB 



IF FIRST PASS 

nFIRST TIMET 

IIBRANCH IF NO 

MTYPE ASCIZ SIRING 
SWITCH REGISTER 

MARE WE RUNNING UNDER XXDP/ACTT 

n BRANCH IF YES 

n SOFTWARE SWITCH REG SELECTED? 

M BRANCH IF NO 

;|GET SOFT-SWR SETTINGS 

nSET AUTO-MODE INDICATOR 



STARTll MOV 
MOV 



67* nGET OVER THE ASCIZ 

<CRLr>/RKll LOGIC TEST 1/<15><12>/MAINDEC-1 1-DZRKJ-D/<CRLF> 



»BADTH0,»»4 ;SET TIME OUT VECTOR FOR UNEXPECTED 

;TIME OUTS 

*BADINTf 8RKVEC >SET UP RKU INTERRUPT VECTOR FOR 

J UNEXPECTED INTERRUPTS FROM RKll 
TSTl ;G0 TO TEST 1 



; |6Sti 
64*1 



ITHIS ROUTINE HANDLES UNEXPECTED TIME OUTS 

MOV CSP)>R0 ISAVE PC WHERE TIME OUT OCCURED 

TST -(R0) 

CHP (SP)+,CSP)f {RESTORE STACK POINTER 

TYPE »65» ;jTYPE ASCIZ STRING 

BR 64* ilGET OVER THE ASCIZ 

.ASCIZ <15><12>/UNEXPECTED TIME OUT AT PC*/ 
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DZRKJD, 


PIl 3( 


8-AUG-76 


14148 




GET VALUE FOR 


SOFTWARE SNITCH REGISTER 


550 


003170 


010046 








HOV 


Ra,-(5P) 


jSET UP FOR TYPING OUT PC 


55! 


002172 


104402 








TYPOC 




;G0 TYPE OUT OCTAL PC 


552 


003174 


000000 








HALT 






553 


003176 


000137 


001542 






JMP 


»»START 




554 
555 












ITHIS 


ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RKll 


556 












JSW 9 


AND 10 FOP LOOPING ON ERROR 


557 












JAND LOOPING ON TEST IN 


WHICH TIMEOUT 


558 












!OCCURRED> ARE PROVIDED, 




559 


















560 


003202 


011600 






BADINTt 


HOV 


CSP)>R0 


(SAVE PC WHERE INTERRUPT OCCURED 


561 


002304 


005740 








TST 


-(R0) 




562 


002206 


032777 


020000 


176724 




BIT 


*20000>»SNR 


J INHIBIT ERROR TYPEOUT? 


563 


002314 


001015 








BNE 


1* 


JYES, DON'T TYPE OUT 


564 


002216 


104401 








TYPE 






565 


002230 


001213 








»CRLF 






566 


003233 


104401 








TYPE 






567 


003234 


011433 








eM43 




jTYPE 'UNEXPEXTED RKll INTERRUPT' 


568 
















JTYPE • AT PC«' 


569 


002226 


104401 


002234 






TYPE 


>6S* 


flTYPE ASCIZ STRING 


570 


002232 


000404 








BR 


64* 


tiGET OVER THE ASCIZ 


571 










n6S*i 


.ASCIZ 


/ AT PC«/ 




572 


002244 








64*t 








573 


003344 


010046 








HOV 


R0,-{SP) 


;SET UP FOR TYPING OUT PC 


574 


003346 


104403 








TYPOC 




;G0 TYPE OCTAL PC WHERE BAD 


575 
















;IHTERUPT OCCURED 


576 


002350 


033777 


001000 


176662 


1*1 


BIT 


tl000,#SWR 


ILOOP ON ERROR? 


577 


003356 


001403 








BEQ 


2* 


}N0, BRANCH 


578 


003260 


033626 








CHP 


(8P)'»^,(SP] + 


;YESr REPOSITION STACK 


579 


003363 


000177 


176620 






JMP 


««LPADR 


jSO TO THE STARTING ADDRESS OF 


580 
















;THE TEST THAT GAVE UNEXPECTED INTERRUPT 


581 


003366 


033777 


040000 


176644 


2*1 


BIT 


140000, 8SWR 


;LOOP ON TEST? 


582 


003374 


001401 








BEQ 


3* 


;N0, BRANCH 


583 


003376 


000003 








RTI 




!YES, LOOP. GO BACK WHER U INTERRUPTED FROM, 


584 


002300 


000000 






3*1 


HALT 




; UNEXPECTED INTERRUPT OCCURED AS 


585 
















{INDICATED IN THE TYPE OUT.U CAN LOOP 


586 
















}0N ERROR. TEST, OR INHIBIT TYPEOUT BY 


587 
















{SETTING APPROPRIATE SWITCHES. 


588 


002302 


000137 


001542 






JMP 


•tSTART 


;G0 BACK TO THE START OF THE 


589 
















{PROGRAM, THUS PRESSING CONTINUE 


590 
















{AFTER THE ABOVE HALT WILL 


591 
















{RESTART THE PROGRAM 


593 


















593 


















594 


















595 










IRESTART AFTER 


POWER FAIL 




596 










>THE PROGRAM WOULD RESTART HERE 


IF POWER CAME BACK AFTER A FALIURE. 


597 
598 


002306 








PFSTRTl 








599 


003306 


104401 


002314 






TYPE 


.65* 


{{TYPE ASCIZ STRING 


600 


003312 


000411 








BR 


64* 


{{GET OVER THE ASCIZ 


601 










n65»! 


.ASCIZ 


<15><12>/PWR UP, 


RESTART/ 


603 


002336 








64*1 








603 


003336 


005000 








CLR 


R0 




604 


003340 


005001 








CLR 


Rl 




605 


002342 


005201 






1*1 


INC 


Rl 
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SEQ 0026 



606 


002344 


001376 




607 


002346 


105200 




608 


002350 


001374 




609 








610 








611 








612 








613 








614 








61S 








616 








617 








618 


002352 


000004 




619 


002354 


005002 




620 


002356 


012737 


002402 


621 








622 


002364 


012737 


002456 


623 


002372 


012700 


177771 


624 


002376 


012701 


001244 


625 


002402 


005731 




626 








627 








623 


002404 


005200 




629 


002406 


001375 




630 


002410 


012737 


002116 


631 


002416 


005702 




632 


002420 


001415 




633 


002422 


104401 


002430 


634 


002426 


000410 




635 








636 


002450 






637 


002450 


000137 


005360 


638 


002454 






639 


002454 


000407 




640 


002456 


022626 




641 


002460 


014137 


001162 


642 


002464 


104001 




643 








644 


002466 


005721 




645 


002470 


005202 




646 


002472 


000744 




647 








648 








649 








650 








651 








652 








653 








654 








655 


002474 


000004 




656 


002476 


000005 




657 


002500 


012700 


177772 


658 


002504 


012701 


001246 


559 


002510 


023711 


001250 


660 


002514 


001005 




661 


002516 


022771 


000200 



BNE II 

INCB R0 
BNE 1$ 



; I »••«*»**«•»*••»•*«••••••»•••*•*«•*••»•••*«•«•••••••••»••••••*•• 

J»TEST 1 TEST THAT ALL RKll REGISTERS CAN BE REFERENCED 

|»THIS TEST CHECKS IF EVERY RKll REGISTER CAN BE 

;*REFERENCEO WITHOUT TIHISG OUT. IF A TIME OUT OCCURS THE ERROR IS 
|«REPORTED t AN ERROR FLAG (R2) IS INCREMENTED. IT THERE MAS 
>*AN ERROR DURING THIS TEST> THE ENTIRE PROGRAM IS ABORTED 
; ;••»*•***«••«••«••»••••••••«»•»•••*•*••««•••«*••*«•»»«•*•«•»«•«* 

TSTU 

CLR P2 

{SET RETURN ADRES FOR LUP 
;0N EROR (SM9) 

;SET UP ADDRESS FOR TIMEOUT VECTOR 
J INITIALIZE R0 TO KEEP TRACK OF REGIS REFERENCED 
; INITIALIZE Rl WITH RKOS ADDRESS 
; REFERENCE THE REGISTER > 

>1F IT CAN'T BE» TIMEOUT TRAP HILL OCCUR 
JSHIFT THE POINTER 
;ALL REGISTERS REFERENCED? 

;IF NOT.. LOOP BACK & REFERENCE NEXT REGISTER 

;WAS THERE AN ERROR? 
;NOiBRANCH 
;|TYPE ASCIZ STRING 
;|SET OVER THE ASCIZ 



n65ti 

64«t 



SCOPE 




CLR 


P2 


MOV 


ITlfSLPERR 


MOV 


«TIM0UT>»I4 




f «7 f R0 


MOV 


tRKDStRl 


TST 


i»{Rn+ 


INC 


R0 


SHE 




MOV 


fBADTM0>»t4 


TST 


R2 


BEO 


18 


TYPE 


>65t 


BR 


64$ 


.ASCIZ 


<15><12>/PR0G 


JHP 


(GET42 


BR 


TST2 


CMP 


CSP)+.CSP)+ 


MOV 


•(R1),$REG0 


ERROR 


1 


TST 


CR1) + 


IMC 


R2 


BR 


Tl+2 



!IF YESf ABORT THIS ENTIRE TEST 
JJEXIT 

JGET ADDRESS OF REGISTER THAI TIMED OUT 
;TIHED OUT WHEN REFERENCING RKll 
; REGISTERS 

{REPOSITION POINTER TO THE NEXT REGISTER ADDRESS 

JSET FLAG INDICATING ERROR 

{BRANCH BACK & REFERENCE THE NXT REGISTER 



• I ««»••»»•«•»«•*••••••»•••«*«•*••••••••»*••*••**•••««•*»*««•••••• 

;»TEST 2 CHECK RKll INITIALIZATION 

;»THIS TEST CHECKS THAT THE CONTROLLER LOGIC IS INITIALIZED 
{•CORRECTLY, RKHC> RKDA, RKDA, RKDB SHOULD BE CLEAR AND 
J»RKCS SHOULD HAVE 'CNTRL RDY' BIT SET. 

; ;•«*»••••*»••*•••••«»•••••*«»•»••••••*••«•«•••*»»•••••«•«•»«•••• 

TST2: 



SCOPE 






RESET 




{ISSUE A BUS INIT 


MOV 


«-6,R0 


{SET COUNT FOR 6 REGISTERS 


MOV 


*RKER,R1 


{INITIALIZE ADRES 


CMP 


RKCS»9R1 


{IS IT RKCS? 


BNE 


2S 


;N0 


CMP 


t200,»CRn 


{ONLY BIT 7 OF RKCS SHOULD BE SETi 
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662 


002S24 


001004 




663 


002526 


000411 




664 


002530 


005771 


000000 


665 








666 


002534 


001405 




667 


002536 


011137 


001162 


668 


002542 


017137 


000000 


669 


002550 


104002 




670 


002552 


005721 




571 


002554 


005200 




672 


002555 


001354 




673 








574 








675 








676 








677 








678 








679 








680 


002560 


000004 




681 


002562 


012737 


002574 


682 








683 


002570 


012700 


000002 


684 


002574 


010077 


176450 


685 


002600 


017701 


176444 


686 


002504 


042701 


000200 


587 


002610 


020001 




688 


002612 


001406 




689 


002614 


010037 


001162 


690 


002620 


017737 


176424 


591 


002626 


104003 




692 


002630 


006300 




693 


002632 


020027 


000020 


594 


002636 


001356 




695 








696 








697 








598 








699 








700 








701 


002640 


000004 




702 


002642 


012737 


002654 


703 








704 


002650 


012700 


000020 


705 


002654 


010077 


176370 


706 


002660 


017701 


176364 


707 


002664 


042701 


000200 


708 


002670 


020001 




709 


002672 


001406 




710 


002674 


010037 


001162 


711 


002700 


017737 


176344 


712 


002706 


104003 




713 


002710 


006300 




714 


002712 


022700 


000100 


715 


002716 


001356 




716 








717 
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CHECK 


RKll INITIALIZATION 


BNE 


3$ 


{BRANCH IF ERROR 


BR 


4$ 




TST 


9tRn 


{CHECK THAT REST OF REGISTERS 






{ARE CLEAR 


BEO 


4$ 


{BRANCH IF REGISTER IS CLR 


MOV 


»R1,SREG0 


{GET ADRES OF REGISTER 


MOV 


9(R1),IREG1 


{GET CONTENTS OF REGISTER 


ERROR 


2 


{RKll REGISTER WAS FOUND TO 6 NOT CLEAR 


TST 


(Rl) + 


{INCREMNT POINTER TO NXT REG 


INC 


R0 


{CHKD ALL REGS? 


BNE 


1$ 


{IF NOT LUP BAK 



2$: 

3S< 



{ )•»»»«#•♦»♦♦»•♦«»♦•»»•••#•»•••»•«•••••»♦«•»••#»•»•«•»»♦•«••♦«•»» 

{•TEST 3 TEST RKCS FUNCTION BITS - 1,2,3 

{•THIS TEST CHECKS IF THE FUNCTION BIT-1,2,3 IN RKCS CAN BE WRITTEN & 
{♦READ BACK. R0 CONTAINS THE BIT THAT WAS WRITTEN, Rl CONTAINS THE 
{•BITS THAT HAS/WERE READ BACK. 
■ }*«•«*•«•••«*••••••••»••••••••»••••••••••••••••••••••••••••«•••• 

TST3: 

{SET RETURN ADRES FOR LOPING ON 
{ERROR CSM 93 

{INITIALIZE BIT TO BE WRITTEN IN RKCS 
1$: MOV R0,ARKCS {WRITE THAT BIT IN RKCS 

{GET RKCS 

{MASK OUT CNTRL RDY BIT 
{WAS RECVD BIT SAME AS WRITTEN BIT 
{YES, BRANCH OTHERWISE REPORT ERROR 
{GET EXPCTD RKCS, BIT THAT WAS WRITTEN 
{GET RECVD RKCS, BIT READ 
{BIT THAT HAS WRITTEN WAS NOT READ BACK 
2${ ASL R0 {SHIFT TO WRITE NEXT BIT 

{HAVE U CHKD ALL 3 BITS 1, 2, 3 
{IF NOT, LOOP BACK S, CHECK THE NXT BIT 

{ 

{ )••••«•••••••••••••••••••••••••••••••••••••••••••••••••••«•••••• 

{•TEST 4 TEST RKCS EXTENDED MEMORY BITS - 4,5 

{•THIS TEST CHECKS IF THE 'EXTENDED MEMORY' BITS CAN BE WRITTEN 
{•AND READ BACK CORRECTLY. 

{{••••••••••«••••••••••••••••••••••••••••••••«•••••••••••••*••••• 

T5T4I 



SCOPE 




MOV 


>1S,$LRERR 


MOV 


t2,R0 


MOV 


R0,ARKCS 


MOV 


»RKCS,R1 


BIC 


*200,R1 


CMP 


R0,R1 


BEQ 


2t 


MOV 


R0,$REG0 


MOV 


»RKCS,tREGl 


ERROR 


3 


ASL 


R0 


CMP 


R0,*20 


BNE 


1* 



SCOPE 






MOV 


tl$,(t,PERR 


{SET RETURN ADRES FOR LUPiNG 






{ON EROR CSW 9) 


MOV 


#20, R0 


{INITIALIZE BIT TO BE WRITTEN IN RKCS 


MOV 


R0,9RKC5 


{WRITE THAT BIT IN RKCS 


MOV 


9RKCS,R1 


{GET RKCS 


BIC 


1300, Rl 


{MASK OUT CNTRL RDY BIT 


CMP 


R0,R1 


{MAS RECVD BIT SAME AS WRITTEN BIT 


BEO 


28 


{YES, BRANCH 


MOV 


R0,IREG0 


{SET EXPCTD RKCS, BIT THAT HAS WRITTEN 


MOV 


»RKCS,$REG1 


{GET RKCD RECVD, BIT THAT WAS READ 


ERROR 


3 


{BIT THAT WAS WRITTEN WAS NOT READ BACK 


ASL 




{SHIFT TO WRITE NEXT BIT 


CMP 


«100,R0 


{HAVE U CHKD BOTH BITS, 4, 5 


BNE 


It 


{IF NOT, LOOP BACK 6 CHECK THE NXT BIT 



} ;••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 
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SEQ 19028 



718 








719 








720 








721 








722 








723 








724 


002720 


000004 




725 


002722 


012746 


000340 


726 


002726 


012746 


002734 


727 


002732 


000002 




728 


002734 






729 


002734 


013700 


001250 


73e 


002740 


012710 


000100 


731 


002744 


022710 


000300 


732 


002750 


001406 




733 


002752 


012737 


000300 


734 


002760 


011037 


001 164 


735 


002764 


104003 




736 








737 


002766 


104412 




718 








739 








740 








741 








742 








743 








744 








745 


002770 


022710 


000200 


746 


002774 


001406 




747 


002776 


010037 


001162 


748 


003002 


011037 


001164 


749 


003006 


104010 




750 


003010 


000430 




751 


003012 


104414 


000010 


752 








753 


003016 


012777 


003066 


754 








755 








756 


003024 


013746 


001266 


757 


003030 


012746 


003036 


758 


003034 


000002 




759 


003036 


000240 




760 


003040 


000240 




761 


003042 


000240 




762 


003044 


012746 


000340 


763 


003050 


012746 


003056 


764 


003054 


000002 




765 


003056 






766 








767 


003056 


012777 


002202 


768 


003064 


000402 




769 


003066 


022626 




770 


003070 


104012 




771 








772 








773 









»»TESI 5 CHECK BKCS IDE BIT - 6 

(•THIS TEST CHECKS IF IDE BIT CAN BE WRITTEN & READ BACK. THE PROCESSOR 
(•STATUS IS SET AT PRIORITY 7 SO THAT UMHAHTED INTERRUPTS ARE LOCKED OUT, 
(•THEN IDE BIT IS CLEARED AND PROCESSOR PRIORITY IS LOWERED TO INSURE TH».I 
(•NO INTERRUPTS OCCUR. 

( { •••••••••••••••••••••••••••••••••••••••••••••••••••*••••*•••••• 

TSI5I SCOPE 



NOV 
HOV 
RTl 

HOV 
HOV 
CMP 
BEQ 
HOV 
MOV 
ERROR 



*340, 
«648, 



•tSP) 
•(SP) 



RKCS>R0 
tl00,8R0 
«300r8R0 
1$ 

«300r«REC0 

»R0,tREei 

i 



176244 



CMP 

BEQ 

MOV 

HOV 

ERROR 

BR 

DELAY 
HOV 



HOV 
HOV 
RTI 
NOP 
NOP 
NOP 
HOV 
HOV 
RTI 



CMP 
ERROR 



*200>»R0 
2t 

R0,$REC0 
fR0,IREGl 

10 

TST6 
>10 

*3*rl)RKVEC 



RKPRI>«CSP] 
14$, -(SP) 



♦340, -CSP) 
*65S,-(SP) 



*BADINT,»RKVEC 
TST6 

(SP)f ,(SP)f 
12 



SET THE IDE BIT 

WAS IT WRITTEN CORRECTLY 

YES, BRANCH OTHERWISE REPORT ERROR 

GET EXPCT RKCS 

GET RKCS RECVD 

IDE BIT WAS WRITTEN, BUT WAS NOT 
READ BACK 

CONTROL RESET, CLEAR IDE 

THIS IS A CALL FOR THE 'CNTRL- 

RESET' ROUTINE. A CONTROL RESET 

IS ISSUED AND AFTER A CERTAIN TIME 

IF THE 'CNTRL RDY' DOES NOT SET 

AN ERROR IS REPORTED. NOTE THAT 

THE PC IN ERROR MESSAGE IS THE 

PC WHERE 'CNT. RESET* IS LOCATED. 

DID IDE BIT GET CLRD7 

YES, BRANCH 

GET ADRES OF RKCS 

GET RKCS 

IDE BIT COULD NOT B CLRO 
(EXIT 

WAIT FOR AT LEAST 60 US 
ON 11/20 12 US FOR 11/45 
SET RKll IHTERUPT VECTOR TO 
WHICH RKll CAN INTERUPT IF THERE 
IS FAULTY LOGIC 
LOWER CPU PRIORITY SO THAT 
RKll CAN POSSIBLY INTERRUPT IF 
THEP IS MALFUNCTIONINIG LOGIC 
THE INTERRUPT WOULD OCCUR 



(PRIORITY 

(SET UP UNEXPCTD INTRUPT VECTOR 
; (EXIT 

(RESTORE STACK 

(AN UNEXPECTED RKll INTERRUPT 
(OCCURED PROBABLY DUE TO FAULTY LOGIC 
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8,9,10,11 



774 








775 








776 








777 








778 








779 


003072 


000004 




780 


003074 


012701 


000400 


781 


003100 


013703 


001250 


782 


003104 


010112 




783 


003106 


011200 




784 


003110 


042700 


000200 


785 


003114 


020100 




786 








787 


003116 


001405 




788 


003120 


010137 


001162 


789 


003124 


011237 


001164 


790 


003130 


104003 




791 








792 


003132 


006301 




793 


003134 


022701 


010000 


794 


003140 


001361 




795 








796 








797 








798 








799 
800 








801 
802 


003142 


000004 




803 


003144 


013700 


001250 


804 


003150 


012710 


170200 


80S 








806 


003154 


011001 




807 


003156 


043701 


010000 


808 


003162 


022701 


000200 


809 








810 


003166 


001406 




811 


003170 


012737 


000200 


812 


003176 


011037 


001164 


813 


003303 


104004 




814 








815 








816 








817 








818 








819 








830 








821 








832 








833 








834 


003304 


000004 




835 


003306 


012746 


000340 


836 


003313 


012746 


003220 


837 


003316 


000002 




838 


003320 






829 


003220 


013701 


0012S0 



( (•••••••••••••••••••••••••••••••••••••••••••••••••••••»••••••••• 

(•TEST 6 CHECK RKCS SSE, EXB, FMT, IBA BITS - 8,9,10,11 

(•THIS TEST CHECKS IF THE SSE, EXB, FMT i IbA BITS CAN BE WRIi 
(•AND READ BACK CORRECTLY 

( (••••••••••••••••••••••••••••••••••••••••••••••••••••••**••••••• 

TST6( SCOPE 

(INITIALIZE BIT TO BE WRITTEN IN RKCS 



IK 



MOV 
MOV 
MOV 
MOV 
BIC 
CMP 

BEO 
NOV 
MOV 
ERROR 

ASL 
CMP 
BNC 



*400,R1 
RKCS, R2 
R1,»R2 
»R3,R0 
#300, R0 
R1,R0 

2$ 

R1,SRCG0 
#R2,tREGl 
3 

Rl 

«10000,R1 
1* 



(WRITE THAT BIT IN RKCS 
(GET RKCS 

(MASK CNTRL RDY BIT " 

(WAS THE READ BIT SAME AS THE 

(WRITTEN BIT 

(YES BRANCH, OTHERWISE REPORT ERROR 
(GET EXPTD RKCS 
(GET RECVD RKCS 

(BIT THAT HAS WRITTEN (AS IN tREC0) 

(WAS NOT READ BACK 

(SHIFT TO WRITE NEXT BIT 

(HAVE U CHECKED ALL BITS 8, 9, 10, 11 

(IF NOT, LOOP BACK & CHECK THE NXT BIT 



( 

((••••••••••••••••••••••••••••••*•••••••••••••••••••••••••••••••• 

(•TEST 7 CHECK READ ONLY BITS OF RKCS 

(•THIS TEST CHECKS THAT TRYING TO SET THE UNUSED BIT OR THE READ ONLY 
(•BITS DOES HOT SET THEM OR AFFECT ANY OTHER BITS IN RKCS 
( (•••••••••••••••«••••••••••••••••••••••••••••••••••••••••••••••• 

TST7( 



SCOPE 






HOV 


RkCS,R0 




MOV 


«170300,fR0 


(TRY SETTING THE UNUSED BIT ( RD 






(ONLY BITS 


HOV 


»R0,R1 


(GET RKCS 


BIC 


11 0000, Rl 


(MASK BIT 12 


CMP 


1200, Rl 


(IS 'RDY' BIT SET? NO OTHER 






(BIT SHOULD BE SET. 


BEQ 


TST10 


((OK, EXIT 


MOV 


f200,tREG0 


(GET EXPCTD RKCS 


HOV 


•R0,IREGt 


(GET RKCS RECVD 


ERROR 


4 


(TRIED TO SET UNUSED t RD ONLY BITS 



(OF RKCS 

(SHOULD NOT HAVE AFFECTED ANY BITS 

( 

((••••••••«••»••••«•«••••••••••••••••••••••••••»•••••«••••••••••• 

(•TEST 10 CHECK THAT 'GO' BIT (0) CAN BE SET 

(•THIS TEST CHECKS THAT THE 'GO' BIT CAN BE SET, BY PERFORMING 
(•CONTROL RESET ( SEEING THAT THE EXB & IBA SET PREVIOUSLY 
(•WERE CLEARED. 

((•••••••#••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

TST10I SCORE 

MOV 1340, -(SP) 

MOV 1641, •(SP) 

RTI 

64tl 

MOV RKCSiRl 
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SEQ 0030 



630 


003224 


012711 


831 


003230 


005000 


832 


003232 


000005 


833 


003234 


022711 


834 


003240 


001403 


835 


003242 


011137 


836 


003246 


104005 


837 


003250 


012711 


838 


003254 


005211 


839 


003256 


005200 


840 


003260 


105700 


841 






842 


003262 


100411 


843 


003264 


105711 


844 


003266 


100373 


845 


003270 


022711 


846 






847 


003274 


001407 


848 


003276 


011137 


849 


003302 


104006 


850 






851 


003304 


000403 


852 


003306 


004737 


853 


003312 


104007 


854 






855 






856 






857 






858 






859 






860 






861 






862 






863 


003314 


000004 


864 


003316 


012737 


865 


003324 


012746 


866 


003330 


012746 


867 


003334 


000002 


868 


003336 




869 


003336 


013700 


870 


003342 


012710 


871 


003346 


005010 


872 


003350 


022710 


873 


003354 


001405 


874 


003356 


010037 


875 


003362 


011037 


876 


003366 


104010 


877 


003370 


012701 


878 


003374 


012737 


879 


003402 


012705 


880 


003406 


010110 


881 


003410 


010102 


882 


003412 


052702 


883 


003416 


011003 


884 


003420 


020203 


885 


003422 


001407 



007576 

000200 
001162 
005000 



000010 
000340 
003336 



l«i 
2Sl 



MOV 


17576, »R1 


;3ET ALL BITS EXCEPT GO 


CLR 


R0 


J 


RESET 




;ISSUE BUS INIT 


CMP 


I200#9R1 


;CHECK IF RKCS WAS CLEARED? 


BEO 


1$ 


SYESf BRANCH OTKERHISE REPORT ERROR 


MOV 


9R1,$RCG0 


;GET RKCS 


ERROR 


5 


;BUS INIT DID NOT CLEAR RKCS 


MOV 


f5000«»Rl 


;SET IBA & EXB IN RKCS 


ISC 


9R1 


!SET GQ» CONTROL RESET 


INC 


R0 


;KEEP TIME 


TSTB 


R0 


;HAVE U WAITED LONG FOR CNTRL RDY 






J TO SET? 


BMI 


3$ 


;IF YES> BRANCH t REPORT ERROR 


TSTB 


•Rl 


;WAS CNTRL RDY SET? 


BPL 


2f 


;IF NOT LOOP BACK ( WAIT FOR IT 


CMP 


«200f »R1 


:IF CNTRL RDY WAS SET, CHK IF 'CNTRL 






PRESET' CLEARED IBA (< EXB BITS 


BCQ 


TSTll 


;>IF YES, EXIT, OTHERWISE ERROR 


HOV 


»R1,«REG0 


jGET RKCS 


ERROR 


6 


>G0 BIT COULD NOT BE SET OR FAULT IN 






JTHE 'INIT L' GENERATING LOGIC 


BR 


TSTll 


;>EXIT 


JSR 


PC#GT3RG 


;G0, GET RKCS, ER, OS 


ERROR 


7 


JCONTROL READY DID NOT SET AFTER 






;CONTROL RESET 



•««»•»«««•••••«••»•••••«**•««••••••*•••*'»«•*«••»•«••«««•••••••* 

;»TEST 11 CHECK RKCS WITH A COUNT PATTERN 

>»THI5 TEST CHECKS THAT RKCS CAN BE CLEARED FROM 7576 THEN A COUNT 
J»PATTERN FROM 2 TO 7777 IS RUN, NOTEI ALL PATTERNS WITH BIT SET 
»»(G0 BIT) ARE AVOIDED SO THAT RKll HAY MOT START AN UNDESIRBD OPERATION, 
S»R1 CONTAINS THE COUNT PATTERN THAT WAS WRITTEN 

TSTll: 



SCOPE 






«0V 


*10,$TIHES 


;jD0 10 ITERATIONS 


MOV 


#340, -(SP) 




MOV 


*64$,>(SP) 




RTI 






MOV 


RKCS,R0 




HOV 


f 7576,9R0 


;SET ALL BITS IN RKCS EXCEPT GO 


CLR 


0R0 


;CLEAR RKCS 


CMP 


t200,9R0 


;WAS IT CLEARED 


BEO 


1$ 


; YES, BRANCH 


MOV 


R0,$REG0 


;GET ADRES OF RKCS 


MOV 


9R0,«REG1 


;N0, GET RKCS 


ERROR 


10 


;RKCS COULD NOT BE CLEARED 


MOV 


*2,R1 


JWRITE THIS BIT IN RKCS 


HOV 


*2$,$LPERR 




MOV 


*-5,R5 




HOV 


R1,»R0 


;WPITE IT 


HOV 


R1,R2 


;GET BIT THAT WAS WRITTEN 


BIS 


t200,R2 


J SET CNTRL RDY BIT 


HOV 


9R0,R3 




CMP 


R2,R3 


;WAS THAT BIT WRITTEN CORRECTLY? 


BEO 


3$ 


;YES, BRANCH 
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886 
887 
888 
889 
890 
891 
392 
893 
894 
895 
896 
897 
898 
899 
900 



917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 



003424 
003430 
003434 

003436 
003440 
003442 
003446 
003452 



010237 
010337 
104003 

005205 
001405 
062701 
022701 
001355 



001162 
001164 



000002 
010000 



MOV R2,SREG0 
MOV R3,IREG1 
ERROR 3 



INC 
BEQ 
ADD 
CMP 
BNE 



R5 

TST12 
t2,Rl 
tl0000,Rl 
2$ 



jGET EXPCTD WORD 

;GET RKCS RECVD 

JDID HOT READ BAK THE BIT THAT 

;WAS WRITTEN 

;>EXIT 

; GENERATE NXT PATTERN TO BE WRITTEN 

;ALL PATTERNS WRITTEN? 

JlF NOT, LUP BAK & CHK NXT PATTERN 



; ;••*•••»»•••••••••••»»•««•••••••»«•»••••*«•••*«••••*•*••«••*•••• 

j«TE5T 12 CHECK THAT RKWC BIT 0-15 CAN BE SET 

>»THIS TEST FLOATS A '1' THROUGH RKWC BIT 0-15 AND CHECKS THAT IT 
;*CAN BE READ BACK CORRECTLY, R0 CONTAINS THE WORD THAT IS WRITTEN 
; ;••»»»»»••••«••*•••«»•*•»»•••»••••«•««•*•«*••»•••••»•«•«*••••••• 



901 


003454 


000004 


TST12I 


SCOPE 






902 


003456 


012700 


000001 


HOV 


*1,R0 


fINITIALIZE R0 FOR THE BIT TO BE WRITTEN IN RKWC 


903 


003462 


013701 


001252 


MOV 


RKWCfRl 




904 


003466 


012737 


003474 001110 


HOV 


il$,$LPERR 


;SET UP RETURN ADRES FOR 


905 












;LUPING ON ERROR (SW 9) 


906 


003474 


010011 


1$: 


HOV 


R0,I)R1 


;HRITE THAT BIT IN RKWC 


907 


003476 


011102 




HOV 


t>Rl,R2 




908 


003500 


020002 




CMP 


R0,R2 


;WAS IT WRITTEN CORRECTLY 


909 


003502 


001405 




BEQ 


2$ 


;YES, BRANCH. OTHERWISE, ERROR 


910 


003504 


010037 


001162 


MOV 


R0,SREG0 


;GET EXPCTD RKWC BIT THAT HAS WRITTEN 


911 


003510 


010237 


001164 


MOV 


R2,$REG1 


;GET RKWC (THAT HAS READ BACK) 


912 


003514 


104011 




ERROR 


11 


;DID NOT READ BACK THE BIT THAT 


913 












;WAS WRITTEN IN RKWC 


914 


003516 


006300 


2$t 


ASL 


R0 


;SHIFT TO WRITE THE NXT BIT 


915 


003520 


001365 




BNE 


IS 


;IF ALL THE BITS HAVE NOT BEEN 


916 












;D0NE, LOOP BACK 



003522 
003524 
003532 
003536 
003542 
003544 
003546 
003550 
003554 
003560 

003562 
003564 
003570 
003576 
003600 
003602 
003604 
003606 



000004 
012737 
013700 
012710 
005010 
005710 
001405 
010037 
011037 
104010 

005001 
012705 
012737 
010110 
011002 
020102 
001407 
010137 



; I ••*«««**«•»*••••*«••••««•••»•»•«•«••••*•••••*••••••••»•**•••••• 

••TEST 13 CHECK RKWC WITH A COUNT PATTERN 

!*THIS TEST CHECKS THAT RKWC CAN BE CLEARED, THEN A COUNT PATTERN 
(»FROM TO 177777 IS WRITTEN 6 CHECKED IF IT HAS WRITTEN CORRECTLY 

• I •••••••»«••••••••••••»*••«•«••••'»••••«••#«••••*•«••••••••••*••• 

TST13J SCOPE 



000010 
001252 
177777 



001162 
001164 



177773 
003576 



MOV 


»10,tTINES 


;>D0 10 ITERATIONS 


HOV 


RKHC,R0 




HOV 


»177777,!IP0 


;SET ALL BITS IH RKWC 


CLR 


»M 


;CLEAR RKWC 


TST 


»R0 


;WAS IT CLEARED? 


BEO 


11 


;YES, BRANCH 


MOV 


R0,$RE60 


SGET ADRES OF RKWC 


MOV 


•R0,$REG1 


;NOf GET RKWC 


ERROR 


10 


;RKHC COULD NOT BE CLEARED 


CLR 


Rl 


; INITIALIZE COUNT PATTERN 


HOV 


*>5,R5 




MOV 


i2l,«LPERR 




MOV 


R1>«R0 


1 WRITE THE PATTERN IN THE REGISTER 


HOV 


iR0,R2 


>HAS IT WRITTEN CORRRECTLY? 


CHP 


R1,R2 


BEQ 


3t 


>YES, BRANCH 


MOV 


R1.IREG0 


jGET EXPECTED WORD 
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SGO 0032 



942 


003612 


010237 


00 1164 






MOV 


O 9 * DP^ 1 


Jubi ffUKU iflAX WAo KCiCVU 


943 


00361 6 


10401 1 










J J 




944 
















iWAS WRITTEN INTO THE REGISTER 


945 


003620 










INC 


R5 




946 


003622 










BEQ 


TST14 


!>EXIT 


947 


003624 


005 201 






311 


INC 


Rl 


(INCREMENT COUNT PATTERN 


948 


003626 


001 363 








BNE 


21 


(LUP BAK £ WRITE NXT PATTERN IF NOT 


949 
















(DONE HITH ALL 


950 










1 








951 










} 1 »»•♦»»»»»»»»#»###»♦•»#♦«»•»#»••••»••♦••»•••»•»••»»••»#••»»•••#• 


952 










>»IEST 


14 


CHECK THAT RKBA 


CAN BE SET 


953 












l»IHIS 


TEST FLOATS A '1 


' THROUGH RKBA BITS 0>15 AND CHECKS THAT 


954 












(•IT CAN BE READ BACK CORRECTLY, R0 CONTAINS THE WORD THAT MAS 


955 












J»WRITTEN, 




956 










1 1 •••»«••»•»•»«•••••«•••*»•••«*»*•••••«««••••*••*••»•••««••*••••• 


957 


003630 


000004 






TST14I 


SCOPE 






958 


003632 


012700 


000001 






MOV 


ilrR0 


(INITIALIZE R0 FOR BIT TO BE 


959 
















(WRITTEN IN RKBA 


960 


003636 


013701 


001 254 






MOV 


RKBAiRl 




961 


003642 


012737 




aot Ilia 




MOV 


OlSftLPERR 


(SET UP RETURN ADRES FOR 


962 
















(LUPING ON EROR (SN 12) 


963 


003650 


01001 1 






111 


MOV 


R0>flRl 


(WRITE THAT BIT IN RKBA 


964 


003652 


01 1102 








MOV 


»R1«R2 




965 


003654 


020002 








CMP 


R0,R2 


(WAS IT WRITTEN CORRECTLY? 


966 


003656 


001405 








BEQ 


21 


(YES, BRANCH 


967 


003660 


010037 


001 162 






HOV 


R0,tREG0 


(GET EXPCTD RKBA (BIT WRITTEN) 


968 


003664 


010237 


001 164 






MOV 


R2>IREG1 


(GET RKBA (BIT READ BACK) 


969 


003670 


10401 3 








ERROR 


13 


(DID NOT READ BACK THE BIT THAT 


970 
















(HAS WRITTEN IN RKBA 


971 


003672 


006300 






2*1 


ASL 


R0 


(SHIFT R0, TO WRITE NEXT BIT 


972 


003674 


001 365 








BNE 


IS 


(IF ALL BITS ARE NOT CHKD, LOOP 


97 3 
















(BACK & WRITE NXT BIT 


974 


















975 










t 1 ••••••**«••»*•«••••»•••«•«*•«•«••*•••«•••••••••«•••••••««*••••« 


976 










J»TEST 


15 


CHECK RKBA HITH 


A COUNT PATTERN 


977 












T»THIS 


TEST CHECKS THAT 


RKBA CAN BE CLEARED, THEN IT RUNS A COUNT 


978 












J»PATTERN FROM TO 177777. Rl CONTAINS THE COUNT PATTERN TO BE WRITTEN 


979 










1 1 •»«••••••••••••««»•••••••••••»•«•••»••••»•••*«••••»*••*»«•««••• 


980 


003676 


000004 






TST15I 


SCOPE 






981 






000010 


vvX <I0D 




MOV 


*10«STIMES 


{(DO 10 ITERATIONS 


982 


003706 


01 3700 


001 254 






MOV 


RKBA>R0 




983 


003712 


012710 


177777 






MOV 


#177777, $R0 


(SET ALL BITS IN RKBA 


984 


003716 


005010 








CLR 


aR0 


(CLEAR RKBA 


985 


003720 


0057 1 








TST 


«R0 


(HAS IT CLEARED? 


986 


003722 


001 405 








BEO 


It 


(YES, BRANCH 






010037 


an 1 1 o 






MOV 


R0,$REG0 


(GET ADRES OF RKBA 


988 


003730 


01 1037 


001 164 






MOV 


0R0,*REG1 


(NO, GET RKBA 


989 


003734 


1 04010 








ERROR 


10 


(RKBA COULD NOT BE CLEARED 


990 
991 


003736 


005001 






1$: 


CLP 


Rl 


(INITIALIZE COUNT PATTERN 


992 


003740 


012705 


177773 






MOV 


*«5,R5 




993 


003744 


012737 


003752 


001110 




MOV 


*2$,tLPERR 




994 


003752 


010110 






2(1 


MOV 


R1>IIR0 


(WRITE THE PATTERN IN THE 


995 
















(REGISTER 


996 


003754 


011002 








MOV 


•R0,R2 




997 


003756 


020102 








CMP 


RtfR2 


(WAS IT WRITTEN CORRRECTLY? 



MAINDEC 


-1 1-DZRKJ-D 


MACYU 


27(1006) 04-OCT 


-76 131 


08 PAGE 20 






DZRKJD, 


Pll 3i 


S-AUG-76 


14(48 


T15 


CHECK RKBA WITH A COUNT 


PATTERN 


998 


003760 


001407 






BEO 


3« 




(YES, BRANCH 


999 


003763 


010137 


001163 




MOV 


R!rfREG0 




(GET EXPECTED WORD 


1000 


003766 


011037 


001164 




MOV 


»R0,»REG1 




(GET WORD THAT WAS RECVO 


1001 


003772 


104013 






ERROR 


13 




(DID NOT READ BACK THE PATTERN THAT 


1002 
















(WAS WRITTEN INTO THE REGISTER 


1003 


003774 


005205 






IMC 


R5 






1004 


003776 


001402 






BEO 


T8T16 




((EXIT 


1005 


004000 


005201 




3$l 


INC 


Rl 




(INCREMENT COUNT PATTERN 


1006 


004002 


001 363 






BNE 


2$ 




(LUP BAK WRITE NXT PATTERN IF NOT 


1007 
















(DONE WITH ALL 


1008 
1009 








; 

1 {»••••••»♦••••♦••♦•»»••♦«»••»••♦»»#»•♦•»••♦»*♦♦»»#«•»••••••»•••• 


1010 








(•TEST 


16 


CHECK THAT 


RKDA 


CAN BE SET 


1011 










(•THIS 


TEST FLOATS 


A M 


' THROUGH RKDA AND CHECKS THAT THE WORD WHICH 


1012 










(•WRITTEN IS READ BACK 1 


:ORRECTLY 


1013 








: t •••*•••••••*•••••«••••••«•••••••••••••••••••••••••••••••••••••• 


1014 


004004 


000004 




TST16I 


SCOPE 








1015 


004006 


005077 


175236 




CLR 


9RKCS 




(CLEAR RKCS 


1016 


004012 


012700 


000001 




HOV 


«1,R0 




(INITIALIZE R0 FOR BIT TO BE WRITTEN IN RKDA 


1017 


004016 


013701 


001256 




HOV 


RKDA,R1 






1018 


004022 


012737 


004030 


001110 


MOV 


«1(,SLPERR 




(SET UP RETURN ADRES 


1019 
















(FOR LUPING ON EROR 


1020 


004030 


010011 




l$l 


MOV 


R0,9R1 




(WRITE THAT BIT IN RKDA 


1021 


004032 


011102 






MOV 


»Rt,R2 






1022 


004034 


020002 






CMP 


R0,R2 




(HAS IT WRITTEN CORRECTLY 


1023 


004036 


001405 






BEQ 


2t 




(YES, BRANCH 


1024 


004040 


010037 


001162 




HOV 


R0,»REG0 




(NO, GET EXPCTD RKDA (BIT WRITTEN) 


1025 


004044 


010237 


001164 




MOV 


R2,*REG1 




(GET RKDA (BIT READ BACK) 


1026 


004050 


104015 






ERROR 


IS 




(DID HOT READ BACK THE BIT THAT 


1027 
















(WAS WRITTEN IN RKDA 


1028 


004052 


006300 




2tl 


ASL 


R0 




(SHIFT R0, TOWRITE NXT BIT 


1029 


004054 


001365 






BNE 


11 




(IF ALL BITS ARE NOT CHKD, LOOP 


1030 
















(BACK 6 WRITE NXT BIT 


1031 








» 










1032 








t 1 ••••«»••••«»•*••••«••••*••••••••••••••«•••••••••••••••••••••••• 


1033 








(•TEST 


17 


CHECK RKDA 


HITH 


A COUNT PATTERN 


1034 










(•THIS 


TEST CHECKS 


THAT 


RKDA CAN BE CLEARED, THEN A COUNT PATTERN 


103S 










(•FROM 


TO 177777 


IS WRITTEN AND CHECKED. Rl CONTAINS THE COUNT 


1036 










(•PATTERN TO BE WRITTEN 




1037 








t ■••••••••••»•*••••••••••*••••••»•••••••••••»•••••••••••••••••••• 


1038 


004056 


000004 




tST17j 


SCOPE 








1039 


004060 


012737 


000010 


001206 


MOV 


*10,tTIMES 




((DO 10 ITERATIONS 


1040 


004066 


013700 


001256 




MOV 


RKDAfR0 






1041 


004072 


012710 


177777 




HOV 


1177777, •R0 


(SET ALL BITS IN RKDA 


1042 


004076 


005010 






CLR 


»R0 




(CLEAR RKDA 


1043 


004100 


005710 






T3I 


«R0 




(HAS IT CLEARED? 


1044 


004102 


001405 






BEQ 


11 




(YES, BRANCH 


1045 


004104 


010037 


001162 




MOV 


R0,IREG0 




(GET ADRES OF RKDA 


1046 


004110 


011037 


001164 




HOV 


»R0,»REG1 




(GO, GET RKDA 


1047 


004114 


104010 






ERROR 


10 




(RKDA COULD NOT BE CLEARED 


1048 


















1049 


004116 


005001 




111 


CLR 


Rl 




(INITIALIZE COUNT PATTERN 


1050 


004120 


012705 


177773 




MOV 


t»S,R5 






1051 


004124 


012737 


004132 


001110 


MOV 


l2t,*LPERR 






1052 


004132 


010110 




2tl 


MOV 


R1,>R0 




(WRITE THE PATTERN IN THE REGISTER 


1053 


004134 


011002 






MOV 


IR0,R2 
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SEQ 0034 



1054 


004136 


020102 






CMP 


R1«R2 


J WAS IT WRITTEN CORRRECTLY? 


1055 


004140 


001407 






BEO 


3t 


;yES, BRANCH 


1056 


004142 


010137 


001162 




NOV 


Rl<tREa0 


fGET EXPECTED WORD 


1057 


004146 


010237 


001164 




MOV 


R2rtREGl 


;GET WORD THAT WAS RECVD 


1058 


004152 


104015 






ERROR 


19 


;DI0 NOT READ BACK THE PATTERN THAT 


1059 














;HAS WRITTEN INTO THE REGISTER 


1060 


004154 


005205 






INC 


R5 




1061 


004156 


001402 






BEQ 


IST20 


;|EXIT 


1062 


004160 


005201 




3$; 


INC 


Ri 


J INCREMENT COUNT PATTERN 


1063 


004162 


001363 






BNE 


2t 


;LUP BAK & WRITE NXT PATTERN IF NOT 


1064 














;D0NE WITH ALL 


1065 
















1066 








t 1 **•«»»••*•«•••••••«•«•••••**•*•«•*•«••«***•«•«••••••••««•*••••• 


1067 








j»TEST 


20 


CHECK THAT RKHC 


,RK6A,RKDA CAN BE CLEARED BY RESET 


1068 










>»THIS 


TEST CHECKS THAT 


RKWC, RKBA AND RKDA CAN BE CLEARED BY BUS INIT. 


1069 










1 •REKT 


INSTRUCTION IS 


USED 


1070 








t 1 •••*••«•••»»•••»••»•*•*•«••••»»«••«*»•*••*«•*•««»»««•«*««••••«« 


1071 


004164 


000004 




TST20I 


SCOPE 






1072 


004166 


013700 


001252 




MOV 


RKWCf R0 


J INITIALIZE R0 TO PRINT TO RKWC 


1073 


004172 


010002 






MOV 


R0,R2 




1074 


004174 


012701 


177775 




MOV 


*-3,Rl 


;SET UP COUNT FOR 3 REGISTERS TO BE CHKD 


1075 


004200 


010103 






HOV 


RlrR3 




1076 


004202 


012720 


177777 


1$! 


MOV 


#177777, CR0)+ 


(SET ALL BITS IN RKWC 


1277 


S0420& 


005201 






IMC 


Rl 


; RKBA 


1078 


004210 


001374 






BNE 


1$ 


; RKDA 


1079 


004212 


000005 






RESET 




1 ISSUE A BUS INIT 


1080 


004214 


005712 




2$) 


TST 


(R2) 


;HAS THE REGISTER CPTD TO BY R2) CLEARED? 




oOt* J. o 








BEQ 


3$ 


fYES, BRANCH 


1082 


004220 


010237 


001162 




MOV 


R2«$REa0 


>N0, GET ADRES OF REG IS THAT WAS NOT CLEARED 


1083 


004224 


011237 


001164 




MOV 


«|R2,$REG1 


}GET CONTENTS OF THAT REGISTER 


1084 


004230 


104017 






ERROR 


17 


;RK11 REGISTER (ADRES IN R0) COULD 


1085 














;NOT BE CLEARED BY BUS INIT 


1086 


004232 


005722 




3tl 


1ST 


tR2) + 


J INCREMENT POINTER TO NXT REGISTER 


1087 


004234 


005203 






INC 


R3 


;HAVE U CHKD ALL 3 REGISTERS? 


1088 


004236 


001366 






BNE 


28 


ilF NOT, LOOP BACK & CHK NXT 


1089 
1090 








; <•••»*«•*•«»•••»•••»»«••«••••»*•«»••••«*«•»•*•*•«•*»»•••••»•••»• 


1091 








}*TtST 


21 


CHECKTHAT RKCSf 


RKWC/ RKBAf RKDA CAN BE CLEARED BY CONTROL RESET 


1092 










|»RtCC5 


IS SET TO 7560, 


RKWC, RKBA, RKDA ARE ALL SET 


1093 










;»T0 177777. CONTROI, RESET IS DONE AND IT IS CHECKED 


1094 










>*IF ALL THESE REGISTERS ARE CLEARED. 


1095 










1096 


004240 


000004 




TST21! 


SCOPE 






1097 


004242 


012746 


000340 




KOV 


(340,>(SP} 




1098 


004246 


012746 


004254 




MOV 


I64$,-C5P1 




1099 


004252 


0md02 






RTI 






1100 


004254 






64tt 








1101 


004254 


013700 


001250 




MOV 


RKCS,R0 




1102 


004260 


012710 


007S60 




MOV 


«7S60,9R0 


;SET ALL WRITABLE BITS IN RKCS 


1103 


004264 


905210 






INC 


»R0 


JSET GO, CONTROL RESET 


1104 


004266 


005005 






CLP 


R5 




1105 


004270 


105710 




1$: 


TSTB 


eR0 


;DID CNTRL RDY SET? 


1106 


004272 


100405 






BMI 


2t 


;YES, BRANCH 


1107 


004274 


005205 






INC 


R5 


> WAITED LONG? 


1108 


004276 


001374 






BNE 


1$ 


J IF NOT LUP BAK & WAIT 


1109 


004300 


004737 


005424 




JSR 


PC,GT3RG 


;GET RKCSfER,DS 
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SEQ 0035 



Ilia 


004304 


104007 






ERROR 


7 


JCNTRL RDY DID NOT SET 


nil 














; AFTER CNTRL BESET 


1112 


004306 


022710 


000200 


2t: 


CMP 


1200, 9R0 


;DID CNTRL RESET CLEAR RKCS 


1113 


004312 


001405 






BEQ 


3« 


J YES, BRANCH 


1114 


004314 


010037 


001162 




MOV 


R0,$REG0 


;GET ADRES OF RKCS 


1115 


004320 


011037 


001164 




HOV 


»R0,$REG1 


J GET CONTENTS OF RKCS 


1116 


004324 


104014 






ERROR 


14 


;CONTROL RESET DID NOT CLEAR RKCS 


1117 


004326 


013702 


001252 


3$: 


MOV 


RKWC,R2 




1118 


004332 


010204 






MOV 


R2,R4 




1119 


004334 


012701 


177777 




MOV 


»177777,R1 




1120 


004340 


010122 






MOV 


R1,(R2)+ 


;SET ALL BITS IN RKWC 


1121 


004342 


010122 






HOV 


R1,(R2)+ 


; RKBA 


1122 


004344 


010122 






MOV 


R1,(R2)+ 


; RKDA 


1123 


004346 


104412 






CNT. RESET 


;G0, DO CONTROL RESET 


1124 














;THIS IS A CALL FOR THE 'CNTRL- 


1125 














;BESET' ROUTINE, A CONTROL RESET IS 


1126 














JDONE ( AFTER A CERTAIN TIME IF 


1127 














J 'CNTRL RDY* DOES NOT SET AN ERROR IS 


1128 














fREPORTED. NOTE THAT THE PC IN ERROR 


1129 














lis THE PC WHERE CNT. RESET IS 


1130 














;LOCATED. THIS IS A VERY BASIC ERROR & 


1131 














JIF IT OCCURS GO BACK TO TEST 10, 


1132 


004350 


012703 


177775 




MOV 


**3,R3 




1133 


004354 


005714 




4$: 


TST 


(R4) 


;WAS THE REGISTER CLEARED? 


1134 


004356 


001405 






BEQ 


5$ 


;YES, BRANCH 


1135 


004360 


010437 


001162 




MOV 


R4,IREG0 


;GET ADRES OF REGISTER IN ERROR 


1136 


004364 


011437 


001164 




MOV 


»R4,$REG1 


jGET CONTENTS OF THAT REGISTER 


1137 


004370 


104014 






ERROR 


14 


{CONTROL RESET DID NOT CLEAR THE 


1138 














{REGISTER WHOOSE ADRES IS IN R4 


1139 


004372 


005724 




5$l 


TST 


(R4) + 


{INCREMENT POINTER TO NXT REGISTER 


1140 


004374 


005203 






INC 


R3 


{CHKD ALL REGS? 


1141 


004376 


001366 






BNE 


4t 


{IP NOT, LUP BAK i CHK THE NXT REG 


1142 
1143 








t ;«*•••*»•••*•»•»»•••«•••••«««•••••••«•••••••*••••»«•••*••«•*•••• 


1144 








f»TEST 


22 


CHECK THAT EACH 


RKll REGISTER IS UNIQUELY ADRESSED 


1145 










r»THI5 TEST CHECKS THAT 


EACH RKll REGISTER CAN BE UNIQUELY ADDRESSED 


1146 










»»n 


RKCS RKWC, RKBA, RKDA ARE FIRST SET TO 177777 (17576 FOR RKCS] 


1147 










>»2) 


REGISTER WHOOSE ADDRESS IS IN R0 IS CLEARED 


1148 










>»3) 


EVERY OTHER REGISTER IS CHECKED FOR ERRONEOUS CLEARING BECAUSE OF 


1149 










r*ADDRESSING ERROR. IF 


SO THE MULTIPLE ADRESSING ERROR IS REPORTED 


1150 










>»4) 


ADDRESS IN M IS CHANGED TO THE NEXT REGISTER i THE PROCESS IS 


1151 










J» 


REPEATED. 




1152 








; }•••*••»•«•»•••»•»«»••••••«**•*••»••••••«•»*••«•••••••••••»•*••• 


1153 


004400 


000004 




TST22t 


SCOPE 






1154 


004402 


012746 


000340 




HOV 


«340,-(SP} 




1155 


004406 


012746 


004414 




HOV 


»64«,-(SP) 




1156 


004412 


000002 






RTI 






1157 


004414 






64$> 








1158 


004414 


012705 


177771 




MOV 


»-7,R5 


{SET UP COUNT FOR THE # OF 


1159 














{REGISTERS TO BE UNIQELY AODRSD 


1160 


004420 


013700 


001244 




MOV 


RKDS,Re 


{INITIALIZE POINTER TO REGIS TO BE SET 


1161 


004424 


012701 


177774 


Ul 


MOV 


*«4,R1 




1162 


004430 


013702 


001250 




MOV 


RKCS,R2 




1163 


004434 


012722 


017576 




MOV 




{SET BITS IN RKCS 


1164 


004440 


012722 


177777 


2SI 


MOV 


#177777, Cl(2) + 


{SET BITS IN RKHC 


1165 


004444 


005201 






INC 


Rl 


{ RKBA 
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SES ^036 



1166 


004446 


001374 






BNE 


2* 




J RKOA 


1167 
















; RKMR IF RKllC 


1168 


004450 


005010 






CliR 


8R0 




(CLEAR REGISTER (WHOSE ADOR IS IN pe) 


1169 


004452 


013702 


001250 




MOV 


RKCS>R2 






1170 


004456 


020002 






CNP 


R0,R3 




;HAS the CLEARED REGISTER RKCS? 


1171 


004460 


001406 






BEQ 


3* 




lYES 


1172 
















>N0>CHECK if it WAS INADVERTENTLY 


1173 


004462 


011203 






MOV 


»R2>R3 




{CLEARED BECAUSE OF ADDRESSING 


1174 


004464 


042703 


170200 




BIC 


(170300, R3 




; ERROR 


1175 


004470 


023703 


007576 




CMP 


#7576, R3 






1 176 


004474 


001020 






BNE 


6* 




tIF SOr REPORT ERROR 


1177 


004476 


005732 




3tl 


TST 


CR3)t 




{INCREMENT POINTER TO NEXT REGISTER 


1178 


004500 


012701 


177775 




MOV 


««3,R1 




;SET COUNT FOR 3 REGISTERS 


1 179 


004504 


020200 




4*1 


' CMP 


R2rR0 




{WAS THE CLEARED REGISTER SAME AS 


1180 
















{THE REGISTER POINTED TO BY R2 


1181 


004506 


001 404 






BEQ 


5* 




{YES 


1182 
















{NO, CHECK IF THE REGIS UNDER TEST 


1183 
















{(POINTED BY R2} WAS INADVERTENTLY 


1184 
















{CLEARED WHEN CLEARING THE REGIS 


UBS 
















{POINTED TO BY R0, DUE TO 


1186 
















{ADDRESSING ERROR 


1187 


004510 


011203 






MOV 


»R3,R3 




{GET CONTENTS OF REGIS BEING CHECKED 


1188 


004512 


010304 






MOV 


R3f R4 




{FOR INADVERTENT CLEARING 


1189 


004514 


005104 






COM 


R4 




{CHECK IF ANY BIT WAS ERRORNEOUSLY CLEARED 


1190 


004516 


001007 






BNE 


6* 




;IF S0» REPORT ERROR 


1191 


004520 


005722 




5*1 


TST 


(R2) + 




{INCRMENT PTR TO NEXT REGISTER 


1192 


004522 


005201 






IMC 


Rl 




JINCRMENT COUNT 


1 193 


004524 


001367 






BNE 


4$ 




{CHECK THE REST 


1194 
1195 


004526 


005730 






TST 


(R0) + 




{ 

{INCREMENT PTR TO THE NXT REGIS TO BE CLEARED 


1196 


004530 


005205 






INC 


R5 




{HAVE ALL THE REGIS SEEN CHECKED? 


1197 


004532 


001334 






BNE 


It 




{IF NOT, LOOP BACK 


1198 


004534 


000415 






BR 


TST23 




{ {EXIT, IF DONE 


1199 


004536 


010037 


001162 


6*1 


MOV 


R0,(REG0 




{GET ADRES OF REGISTER THAT WAS 


1200 
















{TRIED TO REFERENCE 


1201 


004542 


010237 


001164 




HOV 


R3r«REGl 




{GET ADRES OF REGISTER THAT GOT 


1202 
















{REFERENCED INSTEAD 


1203 


004546 


011037 


001166 




MOV 


9R0,(REG2 




{GET CONTENTS OF REG THAT WAS 


1204 
















{ADDRESED MEANT TO BE CLEARED 


1205 


004552 


010337 


001 170 




MOV 


R3.*REG3 




{GET CONTENTS OF REGISTER THAT GOT 


1206 
















{CHANGED INSTEAD 


1207 


004556 


104020 






ERROR 


30 




{POSSIBLE ADRESING ERROR. TRIED 


1208 
















{ADRESING RKU REGISTER, ANOTHER ONE 


1209 
















{GOT ADRESED. REGIS IN R0 HAS THE 


1210 
















{ADRESED ONE, REG IN R2 


1211 
















{WAS THE ONE THAT GOT ADRESED INSTEAD 


1212 


004560 


023702 


001250 




CMP 


RKCS.P2 






1213 


004564 


001744 






BEQ 


3* 




{RETURN TO THE 


1214 


004566 


000754 






BR 


5t 




{RIGHT POINT 


1215 








; (•*•*••»««•••••••»•••««•«*••»••«•••«»•»•«•••••••»««•••••••«•«*«• 


1216 








!»TE,ST 


23 


CHECK THAT 


HI t 


LO BYTES OF RKCS CAN BE ADDRESSED 


1217 










>»THIS 


TEST CHECKS 


THAT 


THE HI & LO BYTES OF RKCS CAN BE 


1218 










;»ADDRESSED CORRECTLY. 




1219 










>»BITS 


IN ALL REGISTERS 


THAT CAN BE WRITTEN ARE SET. THEN EACH 


1220 










J'BYTE 


or RKCS IS 


REFERENCED BY 'CLRB' fc IT IS CHECKED THAT ONLY 


1231 










»«THAT 


BYTE NO OTHER 


REGISTER BYTE GETS CLEARED 



tINDEC 


-ll-DZRKJ-D 


MACYll 37(1006) 04-OCT 


•76 13108 PAGE 24 




!RKJ0. 


Pll 30<AUG-76 


14148 T33 


CHECK 


THAT HI t LO BYTES OF RKCS CAN BE ADDRESSED 


1222 






;{•••«•»•••»•••••»•••••••••••••»»«»••••••••••••••••••••••••••»•*• 


1223 


004570 


000004 


TST23! 


SCOPE 






1324 


004572 


012702 


177776 


MOV 


f-3,R3 


{SET COUNT FOR 2BYTES-HI & LO 


1335 


004576 


012700 


177775 


MOV 


•-3,R0 


{SET COUNT 


1226 


004602 


012746 


000340 


HOV 


*340,-(SP} 




1237 


004606 


012746 


004614 


NOV 


•64*, •(SP) 




1338 


004612 


000002 




RTI 






1239 


004614 




64({ 








1230 


004614 


013701 


001350 


HOV 


RKCS,R1 


{INITIALIZE PTR. TO RKCS 


1331 


004620 


012731 


007576 


MOV 


#7576, (Rl)+ 


{SET ALL BITS IN RKCS 


1233 


004624 


013721 


177777 1*» 


HOV 


♦177777, (Hl)+ 


{SET ALL BITS IN RKWC 


1333 


004630 


005200 




INC 


R0 


{ RKBA 


1334 


004632 


001374 




BNE 


1* 


{ RKDA 


1235 


004634 


013701 


001350 


MOV 


RKCS,R1 


{INITIALIZE PTR TO RKCS L0 BYTE 


1236 


004640 


105011 


3*1 


CLRB 


»Ri 


{CLER RKCS LO OR HI BYTE 


1237 


004642 


010104 




MOV 


Rl»R4 




1338 


004644 


017703 


174400 


MOV 


8RKCS,R3 


;CET RKCS WORD 


1339 


004650 


023703 


177776 


CMP 


*-2,R2 


{R U CHKING HI OR LO BYTE? 


1240 


004654 


001011 




BNE 


3* 


{BRANCH IF HI BYTE 


1341 


0046S6 


043703 


177600 


BIC 


f 177600, R3 


{MASK HI BYTE 


1243 


004662 


001417 




BEQ 


4* 


{OK IF LO BYTE WAS CLEARED 


1243 


004664 


005037 


001162 


CLR 


tREG0 


{GET EXPCTD RKCS. 


1344 


004670 


010337 


001164 


HOV 


R3,tRE61 


{GET RKCS RECVD, LO BYTE 


1345 


004674 


104022 




ERROR 


23 


{ALL RKll REGISTER'S WERE LOADED WITH 


1246 












{I'S THEN TRIED TO ADRES & CLR RKCS 


1247 












(LO BYTE, IT COULD NOT BE CLEARED. 


1248 


004676 


000411 




BR 


4* 




1249 


004700 


042703 


000377 3*1 


BIC 


#377, R3 


{MASK LO BYTE 


1250 


004704 


001406 




BEQ 


4* 


{OK IF HI BYTE WAS CLEARED 


1351 


004706 


005037 


001162 


CLP 


tREG0 


{GET EXPCTD RKCS, HI BYTE 


1253 












{SET WHAT HAS ACTUALLY RECVD 


1253 


004712 


000303 




SHAB 


R3 




1254 


004714 


010337 


001164 


MOV 


R3,*REG1 




1255 


004720 


104033 




ERROR 


33 


(ALL RKll REGISTER'S WERE LOADED WITH 


1356 












(I'S THEN TRIED TO ADRES & CLR RKCS 


1357 












{HI BYTE IT COULD NOT BE CLEARED. 


1258 


004732 


012700 


177774 4(t 


HOV 


t-4,R0 


(INITIALIZE COUNT FOR REST OF REGISTERS 


1259 


004726 


013705 


001250 


MOV 


RKCS,R5 


(INITIALIZE POINTER TO RKCS 


1260 


004732 


005735 


5*1 


TST 


(R5) + 


(INCREMENT PTR TO NXT REGIS 


1361 


004734 


005200 




IMC 


R0 


{ALL REGS DONE? 


1263 


004736 


001417 




BEO 


6* 


(IF YES, GO 6 ADRES TO CLEAR RKCS HI BYTE 


1363 


004740 


011503 




HOV 


fiR5,R3 


(IF HOT, GET CONTENTS OF THE REGIS 


1364 












(BEING CHKD 


1265 


004743 


005103 




COM 


R3 


{COMPLEMENT THE CONTENTS, SHOULD BE 


1366 












(0 FOR IT HAS 


1367 


004744 


001773 




BEQ 


5* 


(PREVIOUSLY SET TO ALL I'S IF IT'S 


1268 












(0 BRANCH, IF NOT REPORT ERROR 


1369 


004746 


010137 


001162 


MOV 


R1,*REC0 


{GET RKCS-BYTE-ADRES WHICH WAS TRIED 


1370 












(TO ADRES 


1271 


004753 


010537 


001164 


MOV 


RS,(REGt 


(GET ADRES OF REGIS WHICH GOT ADRESED 


1373 












(INSTEAD 


1373 


004756 


013737 


177777 001166 


MOV 


•177777, «REG2 


(GET EXPCTD CONTENTS OF REGISTER 


1374 












(THAT GO ADRESED 


1375 


004764 


005103 




COM 


R3 


{GET CONTENTS RECVD FROM THAT REGIS 


1276 


004766 


010337 


001170 


MOV 


R3,tREG3 




1277 


004772 


104034 




ERROR 


24 


(ALL RKll REGISTERS WERE LOADED 
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SEQ 0038 

















■ WITH 1 'St RKCS 


1279 














JBYTE (ADRES UNDER 'BYTE' IN ER 


1 280 














;MSGE) WAS ADRESED 


1281 














;U5ING 'CLRB'» BUT REGISTER CADRES 
















;UNDER 'REGIS' IN 


1283 














;ER MSG) GOT CHANGED AS A RESULT, 




00477 4 


000756 






BR 


5S 






004776 


00520 1 




6$: 


INC 


Rl 


;P0S1TI0N PTR TO RKCS HI BYTE 


1 5afi 


005000 


OC)? £ C 






INC 


R2 


;CHK IF BOTH HI S, LO BYTES (RKCS) 


1 007 














;WERE CLEARED 


1 TOO 










BNE 


2$ 


;IF NOT BRANCH BACK 


1289 
* 
















1290 








: ;•*«*»••»»»•«*•*•»»«•«««•***••»««•««««••»••«•»•••••»••••»««»*»•« 










;»TEST 


24 


CHECK THAT HI & 


LO BYTES OF RKWC'BArOA CAN BE ADDRESSED 


1 292 










J#THIS TEST CHECKS THAT 


BYTE OPERATIONS ON RKHCr RKBA & RKDA CAN BE DONE 












;»CORRECTLY. FIRST RKWC 


, RKCS, RKBA, RKDA ARE SET TO 177777, 


1 9Q4 










!»1 ) 


REGISTER BYTE POINTED TO BY R2 IS CLEARED USING 'CLRB' 












r»2) 


IT IS CHECKED THAT 


ONLY THAT BYTE AND NO OTHER BYTES GET CLEARED 


1296 










!»3) 


POINTER R2 IS INCREMENTED TO THE NEXT REGISTEP-BYTE & THE PROCESS 












S»IS 


REPEATED. LO BYTE 


IS DONE FIRST, THEN HI-BYTE IS DONE, 


1 9Qa 








. ; ; •••«*»•«»*•»«»»»»»««•«»»*«•••*•««««*«•«•••**»«••«•»•*»«««••»«»« 


1 9QQ 


005^904 


000004 




T5T2 4 ! 


SCOPE 




1 laa 




?Zf ^ 


000340 






# 340 # • ( SP ) 




-m- 






Il30DI02l0 






# 6 4 5 f " C £>P ) 




1 302 


X o 


000002 






RTT 






1303 


005020 














1304 


005020 


012704 


177772 




MOV 


*-6,R4 


;SET UP COUNT FOR 6 REG-BYTES TO BE ADRESED 


1305 


005024 


013702 


001252 




HOV 


RKWC»R2 


; INITIALIZE POINTER TO RK.WC 


1306 


005030 


012700 


177775 


1$: 


MOV 


»-3,R0 






Wlff 3 «/ J *t 




MC1 1 oca 




MOV 


RKCSf Rl 




1308 


005040 


01 2721 


007576 




HOV 


»7576,CR1)+ 


;SET RKCS BITS 


1309 


6)0504 4 


012721 


177777 


2S: 


MOV 


»177777,CPn + 


; RKWC 




005050 


005200 






INC 


R0 


; RKBA 


1311 


005052 


00t 374 






BhE 


2S 


! RKDA 


1312 
1313 


005054 


1 050t 2 






CLRB 


iaR2 


; ADDRESS i CLEAR REGIS BYTE UNDER TEST 


1314 
1315 


005056 


01 0200 






MOV 


R2,R0 




1316 


005060 


042700 


000001 




BIC 


»1,P0 


JCONVERT THE BYTE AORES INTO WORD 


1317 














;adres that it belongs to 


1318 


035064 


011001 






MOV 


|)R0,R1 


JGET THE ENTIRE REGIS WRD 


1319 


005066 


0327b)2 


00000 1 




BIT 


f If P2 


;WA5 THE CLRD BYTE HI OR LO? 


1 320 


005072 


00 1 (^03 






BNF 


3S 


;WAS HI, BRANCH 


1321 


005074 


042701 


1 77400 




BIC 


«177400,R1 


;«IAS LO-MASK HI BYTE 


1322 


005 1 00 


000402 






BR 


4S 




1 323 


005 102 


042701 


000377 


3S: 


BIC 


»377,R1 


;MASK LO BYTE 


1 324 


005 1 06 


00 1411 




4$: 


BEQ 


5S 


JWAS THE ADDRESSED BYTE CLEARED? BR IF YES 


1325 


'35^5 1 ! 


01023? 


001 162 




MOV 


R2sSPEGi) 


;GET ADRES OF REG-BYTE THAT WAS 


1326 














;TRIEO TO B ADRESED & CLEARED 


1327 


0051t4 


032702 


000001 




BIT 


»1 >R2 




1328 


005120 


001401 






BEQ 


111 




1329 


005122 


000301 






S»AB 


Rl 




1 330 


005124 


010137 


001164 


lis: 


MOV 


R1»SREG1 


rGET CONTENTS OF REG-BYTE 


1331 


005130 


104025 






ERROR 


25 


;IRIEO TO AORES & CLR A REGISTER BYTE 


1332 














! (ADRES UNDER 'REG-BYTE' IN ER MSGE), COULD 


1333 














;NOT CLEAR IT. 



INDEC 


-11-DERKJ-D 


MACYll 


27(1006) 04-OCT 


-76 13108 PAGE 26 




,RKJD.P11 30-AUG-76 


14:48 


T24 


CHECK 


THAT HI & LO 


BYTES OF RKWC, BA, DA CAN BE ADDRESSED 


1334 


005132 


017701 


174112 


5S: 


MOV 


SRKCS.Rl 




1335 


0051 36 


022701 


007776 




CMP 


#7776, Rl 


;WAS RKCS ERRONEOUSLY CLRD? 


1336 


005142 


001410 






BEO 


6$ 


JNO, BRANCH 


1337 


005144 


010237 


01*1162 




MOV 


R2,SREG0 


;GET ADRES OF REG-BYTE THAT WAS 


1338 














;TPIED TO B ADRESED & CLEARED. 


1339 


005150 


012737 


007776 


001164 


MOV 


»7776,SREG1 


;GET EXPCTD RKCS 


1340 


005156 


010137 


001166 




MOV 


R1,SREG2 


;GET RKCS RECVD 


1341 


005162 


104016 






ERROR 


16 


;ALL RKll REGISTRS WERE LOADED WITH I'S 


1342 














JTRIED TO ADRES & CLR 'REGIS-BYTE' (IN ER MSGE) 


1343 














;PKCS GOT CHANGED AS A RESULT. 'CRKCS)EXP' 


1344 














;C0NTA1NS EXPCTD RKCS. 'RKCS (RECVD)' CONTAINS 


1345 














JRKCS RECVD. 


1346 


005164 


012700 


177772 


6S: 


MOV 


#-6,R0 


JSET COUNT FOR BYTES 


1 347 


005170 


013701 


001252 




MOV 


PKWCRl 


JINITIALIZE PTR TO RKWC 


I 348 


005174 


020102 




7s: 


CMP 


P1,R2 


;WAS THE CLEARED BYTE (PTD TO BY R2) 


1 349 














JSAME AS BYTE TO BE CHKD (PTD TO BY Rl)7 


1 350 


005176 


001433 






BEO 


10$ 


;IF YES, DO NOT CHK THIS BYTE 


1351 


005200 


010105 






MOV 


R1,R5 




1352 


005202 


042705 


0M0001 




BIC 


#1,R5 


.•STRIP WORD ADDRESS FROM BYTE ADDRS 


1353 


005206 


01 1503 






HOV 


iaR5,R3 




1354 


005210 


032701 


000001 




BIT 


tl,Rl 


;IS THE BYTE TO B CHKD LO OR HI BYTE? 


1355 


005214 


001003 






BNE 


8S 


SHI BYTE-BRANCH 


1 356 


005216 


042703 


177400 




BIC 


#177400, R3 


JMASK HI BYTE 


1357 


005222 


000402 






BR 


9$ 




1358 


005224 


042703 


000377 


8s: 


BIC 


#377, R3 


;MASK LO BYTE 


1359 


00S230 


001016 




9$: 


BNE 


10$ 




1360 


005232 


010237 


001162 




HOV 


R2,SReG0 


J GET ADRES OF REG-BYTE THAT WAS 


1361 














;TRIED TO B ADRESED & CLEARED 


1362 


005236 


010137 


001 164 




MOV 


R1,$REG1 


;GET ADRS OF REG-BYTE THAT GOT 


1363 














(ADRESED INSTEAD 


1364 


005242 


012737 


000377 


001166 


MOV 


»377,SREG2 


J GET EXPCTD CONTENTS OF REG-BYTE 


1365 














STHAT GOT ADRESED 


1366 


005250 


032701 


000001 




BIT 


*1,R1 




1367 


005254 


001401 






BEO 


12$ 




1368 


005256 


000303 






SWAB 


P3 




1369 


005260 


010337 


001170 


12s: 


MOV 


R3«$REa3 


;GET CONTENTS RECVD FOR THAT REG-BYTE 


1370 


005264 


104021 






ERROR 


21 


;ALL RKll REGISTRS WERE LOADED WITH I'S. 


1371 














;TRIED TO ADRES ti CLR 'REG-BYTl' (IK CR HSGE) 


1372 














;'REG-BYT2' GOT CHANGO AS A RESULT, 


1373 














;'BYT2-EXPCT' (IN ER MSGE) IS THE EXPCTD CONTENTS 


1374 














;0F REG-BYT2. 'BYI2-RECVD' IS THE CONTENTS RECVD 


1375 


005266 


005201 




10s: 


IMC 


Rl 


.•INCREMENT PTR TO NXI REG BYTE 


1376 


005270 


005200 






INC 


R0 


TALL BYTES CHKD? 


1377 


005272 


001340 






BNE 


7S 


;N0, LOOP BACK 


1378 


005274 


005202 






INC 


R2 


J INCREMENT PTR TO NXT REG BYTE TO B CLRD 


1379 


005276 


005204 






ItlC 


R4 


;ALL BYTES CLRD? 


1380 


005300 


001253 






BNE 


11 


ILOOP BACK 


1381 
1392 
















1383 
















1384 
















1385 








.SBTTL 


END OF 


PASS ROUTINE 




1386 
















1387 








• ;•«»•«••«••»»««#•••»••**•••«•«»•»**•«»•«••*»*«*•»•*«*•«••*••*»•• 


1388 








;»INCPEMENT THE PASS NUMBER 


CSPASS) 


1389 








J»INDICATE END 


-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
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1398 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1396 
1399 
1400 
1401 
1403 
1403 
1404 
1405 
1406 
1407 
140B 
1409 
1410 
141 1 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1445 



(•TYPE "END PASS *XXXXX" (HHERE XXXXX IS A DECIMAL NUMBER) 
!«ir THERES A MONITOR GO TO IT 
!»ir THERE ISN'T JUMP TO STARTl 



005302 
005302 
005304 
005310 
005314 
005320 
005326 
005330 
005332 
005334 
005336 
005340 
005342 
005346 
005352 
005354 
005160 
005364 
005366 
00S370 
005372 
005374 
005376 
005400 
005400 
005402 
005404 
005407 
005414 
005422 



000004 
005037 
005037 
005237 
042737 
035327 

000001 

003023 
012737 
000001 
005330 
104401 
013746 
104405 
104401 
013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
002100 
377 
015 
050040 
000043 



005424 017737 

005432 017737 

005440 017737 

005446 000207 



001102 
001206 
001100 
100000 



005407 
001100 



00S404 
000042 



377 000 
042412 042116 
051501 020123 



173620 001163 
173610 001164 
173600 001166 



IBOPCTJ 
(ENDCTs' 

6GET42I 
tCNDADS 

SDOAGNI 

tRTNAOt 
(ENULLI 
SCNDMGt 



SCOPE 






CLR 


(TSTNM 


MZERO the TEST NUMBER 


CIjR 


(TIMES 


flZERO THE NUMBER OF ITERATIONS 


THC 


SPASS 


J > INCREMENT THE PASS NUMBER 


BIC 


ll00000rlPASS 


tiDON'T ALLOW A NE6. MUMBER 


DEC 


tPC) + 


JJLOOP? 


.WORD 


1 




BGT 


.$doa';n 


n YES 


MOV 


{PC)+»?(PC)+ 


f> RESTORE COUNTER 


.WORD 


1 




lEOPCT 






TYPE 


(lENDMG 


IITYPE "END PASS »" 


MOV 


IPAS8»-(SP) 


;(SAVE tPASS FOR TYPECHIT 


lypDS 




»|G0 TYPE--DECIMAL ASCII WITH SIGN 


TYPE 


(SENULL 


MTYPE a null CHARACTER 


MOV 


0*42rR0 


11 GET MONITOR ADDRESS 


BEO 


$DOAGN 


fjBRANCH IF NO MONITOR 


RESET 




;iCLEAR THE WORLD 


JSR 


PC>(R0) 


ttGO TO MONITOR 


NOP 




nSAVC ROOM 


NOP 




tlFOR 


NOP 




J»*CTH 


JMP 


i(PC)+ 


RETURN 


.MORD 


STARTl 




.BYTE 


-l.-lf0 


IJNULL CHARACTER STRING 


.ASCIZ 


<15><12>/END 


PASS #/ 



.SBTTL GT3RGt ROUTINE FOR GETTING RKCS, RKEP, RKDS 

;GT3RG 

;SURROUTINe FOR TRANSFERRING THE CONTENTS OF RKCSt RKCR« RKDS 
;T0 $REG0i IREGl. tREG2 RESPECTIVELY BEFORE TYPING OUT AN 
TERROR MESSAGE. 
;CALLt JSR PC>GT3RG 

GT3KGI MOV »RKCS«IREGe IGET RKC8 

MOV »RKER«*REG1 ;GCT RKER 

MOV l>RK0S,$REG3 ;GET RKOS 

RTS PC JEXIT FROM THIS SUBROOIIHE 
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1446 






1447 






1448 






1449 






1450 






1451 






1453 






1453 






1454 


005450 


004737 


1455 


005454 


017737 


1456 


005462 


000207 


1457 






1458 






1459 






1460 






14«1 






1463 






1463 






1464 






1465 






1466 






1467 






1468 






1469 






1470 






1471 


005464 


017637 


1472 


005472 


062716 


1473 






1474 


005476 


005337 


1475 


005502 


001375 


1476 


005504 


000002 


1477 






1478 






1479 






1480 






1481 






1482 






1481 






1484 






1485 






1486 






1487 






1488 






1489 






1490 






1491 






1492 






1493 






1494 






1495 






1496 






1497 






1498 






1499 






1500 






1501 







005424 
17357b 



.SBTTL GT4RG! ROUTINE FOR GETTING RKCS, RKBR. HKPS, RKPA 

;GT4RG 

JSUBROUIINE FOR TRANSFERRING CONTENTS OF RKCSf RKER, MBS 
;RKDA TO (REG0, (REGl, tREG2, «REG3 RESPECTIVELY BEFOUE 
; TYPING OUT AN ERROR MESSAGE. 
JCALLI JSR PC,GT4RC 
GT4RG: JSR PC,CT3RG 
001170 MOV »RKDA,IREG3 

PTS PC 

.SBTTL DELAY! TIME DELAY ROUTINE 

(DELAY 

;THIS ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS 
JROUTINE IS AN ENCODED 'TRAP* INSTRUCTION. 

;CALL: DELAY ,N N IS ANY OCTAL MO, F»OM 1 TO 177777 

;THE DELAY PROVIDED IS 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 
;1.5N US FOR 11/45 

!IF THE USER HANTS TO CHANGE THE DELAY TIME CEXHPt SHMTCR DELAY TO 
;GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N' FOLLOWING 'DELAY' SHOULD 
;BE CHANGED TO SUIT THE INDIVIDUAL NEED. 



000002 



DELA.YI MOV 
ADD 

IIS DEC 
BNE 

RTI 



•(SP), TIMER 
*2, (SP) 



TIMER 
It 



.SBTTL CON.RESETI 



JGET 'AMOUNT' (N) FOR WHICH 

;DELAY IS TO BG PROVIBEB 

: ADJUST STACK POINTER TO SKIP OVER 'N 

rCOUNT DOWN TO 

{RETURN TO MAIN PROGRAM 



CONTROL REST ROUTINE 



;CON. RESET 

{THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
ITHE 'CNTRL ROY' FLAG TO SET. WHEN THE FLAG SETS 
IAN EXIT IS MADE OUT OF THE ROUTINE. IF 'CNTRL-RDY' 
rDOES NOT SET WITHIN A CERTAIN TING AH ERROR NESSA6C 
I CNI ROY DIDN'T SET 

r PC"XXXXXX RKCS«YYYYYY 

»I8 GIVEN, NOTE THAT XXXXXX IS THE PC WHERE 'CNT, RESET' 8R 'CNI. ROY' 
lis CALLED. 

iCALLt CNT. RESET 



.SBTTL CNT.RDYI 



WAIT FOR CONTROL READY ROUTINE 



ICN.RDY 

ITHIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 
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SEQ 0042 



1502 
1503 



JSETS EXITS OUT. IF MITHIN A CERTAIN TIME CNTRL RDY DOES 
• NOT SET AN ERROR IS REPORTED. vlAITING TIME IS 863 MS rOR 11/20 



1504 










1175 MS 


FOP 11/45 WITH BIPOLAR 


MEMORY, 


1505 










SCALL: 


CNT.BDY 






1506 


005506 


012777 


000001 


173534 


cn.rst: 


MOV 


*it aRKCS 


! ISSUE A CONTROL RESET 


1507 


005514 


012737 


177500 


00117.0 




MOV 


(•300f $REG3 


>SET UP COUNT 


1508 


005522 


000402 








RR 


CN.ROY+4 


JSKIP OVER CN.PDY 


1509 


005524 


005037 


001170 




CN.ROYI 


CtiR 


SREG3 




1510 


005530 


105777 


173514 




ISi 


TSTB 


apKCS 


iOTD CNTPL-RDY SET? 


1511 


005534 


100435 








BMI 


3$ 


;YES, EXIT 


1512 


005536 


005237 


001170 






INC 


SREG3 


J WAITED LONG? 


1513 


005542 


001 372 








BNE 


1 $ 


tir NOTf GO BAK & WAIT 


1514 


005544 


032777 


020000 


173366 


2$i 


BIT 


(SMlSteSWR 


J INHIBIT TYPEOUT? 


1515 


005552 


001026 








BNE 


3$ 


;IF YES» SKIP TYPEOUT 


1516 


005554 


104401 








TYPE 






1517 


005556 


001216 








MSG3 






1518 


005560 


104401 


005566 






TYPE 


f 65$ 


J JTYPE ASCIZ STRING 


1519 


0^5564 


000403 








BR 


64$ 


! ;GET OVER THE ASCIZ 


1520 










;>65$: 


.ASCIZ 


<15><12>/PC=/ 




1521 


005574 








64$: 








1522 


005574 


011646 








MOV 


CSP).-tSP) 




1523 


005576 


162716 


000002 






SUB 


»2,(SP) 




1524 


005602 


104402 








TYPOC 




;G0 TYPE PC IN THE MAIN PROGRAM 


1525 
















; WHERE ERROR OCCUPPEO 


1526 


005604 


104401 


0P5612 






TYPE 


«57$ 


;:TYPE ASCIZ STRING 


1527 


005610 


000404 








BR 


66S 


;»GET OVER THE ASCIZ 


1528 










;>67s: 


.ASCIZ 


/ RKCS*/ 




1529 


005622 








66SI 








1530 


005622 


017746 


173422 






MOV 


dRKCS.-CSP) 


;GET RKCS 


1531 


005626 


104402 








TYPOC 




;G0 TYPE IT 


1532 


















1533 


005630 


000002 






3$: 


RTI 




;PETURN FROM THIS 



1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 



.•ROUTINE TO THE MAIN 
SPROGRAM 



THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
FROM THE SYSHAC.SML PACKAGE 



.SPTTL SCOPE HANDLER ROUTINE 

; ; •«»»•*««•«*«•»•*•»*»«»«•*••«»»««*«•••*•••**«««*••*••««'•»•**»•»» 

;»TH1S ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
;»AND LOAD THE TEST NUMBERtSTSTNH) INTO THE DISPLAY REG. CDISPLAY<7 I 0>) 
;»ANO LOAD THE ERROR FLAG CSERFLC) INTO DISPLAY<15 I 0e> 
>»THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE! 



035632 
005632 



?»SW14al 
;»SW11=1 
;»SW09=1 
;«SW08=1 
!»CALL 

;* SCOPE 

sscope: 



LOOP ON TEST 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7j0> 

! »SCOPE=IOT 



;;TEST FOR CHANGE IN SOFT-SWR 
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1558 


005634 


032777 


040000 


173276 


IS! 


BIT 


»BIT14,»SWR 


;:LOOP ON PRESENT TEST? 


1559 


005642 


30111 1 








BNE 


«OVER 


!;YES if SW14=1 


1560 










;«»t»iSTART OF 


CODE FOR THE XOR 


TESTER«i»»i 


1561 


005644 


000416 






SXTSTR! 


BR 


6$ 


;;IF RUNNING ON THE "XOR" TESTER CHANGE 


1562 
















rjTHlS INSTRUCTION TO A "NOP" CNOPi240) 


15fi3 


005646 


013746 


000004 






MOV 


9«ERRVEC,-(SP) 


;;SAVE THE CONTENTS OF THE ERROR VECTOR 


1564 


005652 


012737 


005672 


000004 




MOV 


t5«,»«ERRVEC 


SISET FOR TIMEOUT 


1565 


005660 


005737 


177060 






TST 


I»»177a60 


;|TIME OUT ON XOR? 


1566 


005664 


012637 


000004 






MOV 


(SPI't'r^tERRVEC 


;>RESTORE THE ERROR VECTOR 


1567 


005670 


000463 








BR 


SSVLAD 


; »G0 TO THE NEXT TEST 


1568 


005672 


022626 






5$: 


CMP 


tSP)+,CSP)+ 


SJCLEAB THE STACK AFTER A TIME OUT 


1569 


005674 


012637 


000004 






MOV 


(SP)-»,9tERRVEC 


MRESIORE the ERROR VECTOR 


1570 


005700 


000423 








BR 


7$ 


;;LOOP ON THE PRESENT TEST 


1571 


005702 








6$:m**«*end of code for the xor 


TESTEP»»»»» 


1572 


005702 


032777 


000400 


173230 




BIT 


*BIT0a,»SWR 


J! LOOP ON SPEC. TEST? 


1573 


005710 


001404 








BEQ 


2S 


;)BR IF NO 


1574 


005712 


127737 


173222 


00} 102 




CMPB 


DSWR.STSTNM 


;»0N THE RIGHT TEST? SWP<7:0> 


1575 


005720 


001 462 








BEO 


SOVER 


:jbr IF YES 


1576 


005722 


105737 


001103 




2s: 


TSTB 


SERFLG 


;»HAS AN ERROR OCCURRED? 


1577 


005726 


001421 








BEQ 


3S 


; !BB if no 


1578 


005730 


123737 


001115 


001103 




CMPB 


SERMAXrSERFLG 


;)MAX. ERRORS FOB THIS TEST OCCURRED? 


1579 


005736 


101015 








BHI 


3S 


;»BR IF NO 


1580 


005740 


032777 


001000 


173172 




BIT 


*BIT09>»SWR 


; (LOOP ON ERROR? 


1581 


005746 


001404 








BEO 


4$ 


5!BR IF NO 


1582 


005750 


013737 


001 110 


001106 


7$! 


HOV 


SLPERR.SLPAOR 


;»SET LOOP ADDRESS TO LAST SCOPE 


1583 


005756 


000443 








PR 


SOVER 




1584 


005760 


105037 


001103 




4$: 


CLRB 


SERFLG 


ilZERO THE ERROR FLAG 


1585 


005764 


005037 


001206 






CLR 


STIMES 


;»CLEAR THE NUMBER OF ITERATIONS TO HAKE 


1586 


005770 


000415 








BR 


IS 


JJESCAPE TO THE NEXT TEST 


1587 


005772 


032777 


004000 


173140 


3$I 


BIT 


fBITll,»SWR 


J » INHIBIT ITERATIONS? 


1588 


006000 


00101 1 








BNE 


IS 


* } BR TF YCS 


1589 


006002 


005737 


001 100 






TST 


SPA5S 


;jIF FIRST PASS OF PROGRAM 


1590 


006006 


001406 








BEQ 


IS 


;: INHIBIT ITERATIONS 


1591 


006010 


005237 


001104 






INC 


SICNT 


; 7 INCREMENT ITERATION COUNT 


1592 


006014 


023737 


001206 


001104 




CMP 


STIMES, SICNT 


JJCHECK THE NUMBER OF ITERATIONS MADE 


1593 


006022 


002021 








BGE 


SOVER 


;|BR IF MORE ITERATION REQUIRED 


1594 


006024 


012737 


000001 


001 104 


Itl 


MOV 


• 1, SICNT 


; JREINITIALIZE THE ITERATION COUNTER 


1595 


006032 


013737 


006102 


001206 




MOV 


SMXCNT, STIMES 


;iSET NUMBER OF ITERATIONS TO DO 


1596 


006040 


105237 


001102 




SSVLAD: 


INCB 


STSTNH 


;> COUNT TEST NUMBERS 


1597 


006044 


011637 


001106 






MOV 


(SP)f SLPADR 


; I SAVE SCOPE LOOP ADDRESS 


1598 


006050 


011637 


001110 






MOV 


CSP)>SLPERR 


;|SAVE ERROR LOOP ADDRESS 


1599 


006054 


005037 


001210 






CLR 


SESCAPE 


nCLEAR THE ESCAPE FROM ERROR ADDRESS 


1600 


006060 


1 17737 


000001 


001115 




MOVB 


llrSCRMAX 


;>ONLY ALLOW ONECl) ERROR ON NEXT TEST 


1601 


006066 


013777 


001102 


173046 


$over: 


MOV 


STSTNH, 9DISPLAY 


MDISPLAY TEST NUMBER 


1602 


006074 


013716 


001106 






HOV 


SLPADR, CSP) 


;iFUDGE RETURN ADDRESS 


1603 


006100 


000002 








RTI 




JJFIXES PS 


1604 


006102 


0000S0 






smxcnt: 


50 




;:HAX. NUMBER OF ITERATIONS 


1605 


















1606 


















1607 
1608 










( )«»•••••«••••••••••»••»•••••«••••««••••'»•»••*•••*•«••••*•••••••««*«*•••« 


1609 
1610 










.SBTTL 


ERROR 


HANDLER ROUTINE 




1611 










;«SW15al 


HALT OH ERROR 




1612 










;»SW13>1 


INHIBIT ERHOR TYPEOUTS 


1613 










>*SW10al 


BELL ON ERROR 





MAINOEC-IJ-OZRKJ-D MUCYll 27(1006) 04-OCT-76 13|08 PAOE 31 

DZRKJD.PII 30-AUG-76 14148 ERROR HANDLER ROUTINE 



SEQ 



1614 








1615 








1616 








161 7 








1618 


006104 


104407 




1619 


006106 


105237 


001103 


1630 


006112 


001775 




1621 


006114 


013777 


001102 


1622 


006122 


005237 


00111 2 


1623 


006126 


011637 


001116 


1624 


006132 


162737 


000002 


1625 


006140 


117737 


172752 


1626 


006146 


032777 


020000 


1627 


006154 


001004 




1628 


006156 


004737 


006244 


1629 


006162 


104401 


001213 


1630 


006166 


005777 


172746 


1631 


006172 


100002 




1632 


006174 


000000 




1633 


006176 


104407 




1634 


006200 


032777 


010000 


1635 


006206 


001402 




1636 


006210 


013716 


001 106 


1637 


006214 


032777 


001000 


1638 


006222 


001402 




1639 


006224 


013716 


001110 


1640 


006230 


005737 


001210 


1641 


006234 


001402 




1642 


006236 


013716 


001210 


1643 


006242 


000002 




1644 








1645 








1646 








1647 








1648 








1649 








1650 








1651 








1652 


006244 






1653 


006244 


104401 


001213 


1654 


006250 


010046 




1655 


006252 


005000 




1656 


006254 


153700 


001114 


1657 


006260 


001004 




1658 








1659 


006262 


013746 


001116 


1660 








1661 


006266 


104402 




1662 


006270 


000426 




1663 


006272 


005300 




1664 


006274 


006300 




1665 


006376 


006300 




1666 


006300 


006300 




1667 


006302 


062700 


001372 


1668 


006306 


012037 


006316 


1669 


006312 


001404 





;«Sli09at LOOP ON ERROR 

j»S«12«l CYCLE ON ERROR 10 PREVIOUS 'SCOPE' 

(•GO TO lERRTVP OH ERROR 



001116 
001114 
172764 



172732 3$J 



CKSMR 




JCHECK FOP SOFTWARE SWITCH ENTRY REQUEST 


INCB 


SERFLG 


tSET THE ERROR FLAG 


BEQ 


7S 


IDON'T LET THE FLAG GO TO ZERO 


MOV 


STSTNH,8DISPLAy 


(DISPLAY TEST NUMBER AND ERROR FLAG 


INC 


$ERTTL 


(COUNT THE NUMBER OF ERRORS 


MOV 


(SP),«ERRPC 


(GET ADDRESS OF ERROR INSTRUCTION 


SUB 


(2>tERRPC 




MOVB 


dSERRPCrtlTEHB 


(STRIP AND SAVE THE ERROR ITEM CODE 


BIT 


fSH13f aSHR 


(SKIP TYPEOUT IF SET 


BNE 


2$ 


(SKIP TYPEOUTS 


JSP 


PCr»#SERPTYP 


(GO TO USER ERROR ROUTINE 


TYPE 


rtCRLF 




TST 


aSWR 


(HALT ON ERROR 


BPL 


3$ 


(SKIP IF CONTINUE 


HALT 




(HALT ON ERROR! 


CKSWR 




(CHECK FOR SOFTWARE SWITCH ENTRY REQUEST 


BIT 


tSW12,|ISWR 


(SW 12 SET? 


BEQ 


.+6 


(N0> BRANCH 


MOV 


tLPAORrCSP) 


(ADJUST RETURN ADRES FOR SW12 


BIT 


«SH09,»SHR 


(LOOP ON ERROR SWITCH SET? 


BEO 


4$ 


(BR IF NO 


MOV 


(LPERRi CSP} 


(FUDGE RETURN FOR LOOPING 


TST 


SESCAPE 


(CHECK FOR AN ESCAPE ADDRESS 


BEQ 


5$ 


(BR IF NONE 


MOV 


SESCAPE, (SP) 


(FUDGE RETURN ADDRESS FOR ESCAPE 


PTI 




(RETURN 



.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

; ;••••••»••••••»•••<••••»»•••«•«••••••*««••«•••«•«•«••••«•*«»«•»• 

{•THIS ROUTINE USES THE "ITEM CONTROL BYTE" (SITEHB) TO DETERMINE WHICH 
(•ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE" CSERRTB), 
(•AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 

»ERRTYP« 



TYPE 


»SCRLF 




(("CARRIAGE RETURN" i "LINE FEED" 


MOV 


R0,-(SP) 




((SAVE R0 


CLR 


R0 




{(PICKUP THE ITEM INDEX 


BISB 


»*tITEMB 


,R0 




BNE 


IS 




{(IF ITEM NUMBER IS ZERO, JUST 
{(TYPE THE PC OF THE FRROR 


MOV 


SERRPCj- 


(SP) 


{{SAVE SERRPC FOR TYPEOUT 
( (ERROR ADDRESS 


TYPOC 






{(GO TYPE--OCTAL ASCIKALL DIGITS) 


BR 


6« 




{(GET OUT 


DEC 


R0 




{{ADJUST THE INDEX SO THAT IT WILL 


ASL 


R0 




( ( WORK FOR THE ERROR TABLE 


ASL 


R0 






ASL 


M 






ADD 


(SERRTRr 


R0 


((FORM TABLE POINTER 


MOV 


(R0)>.2S 




({PICKUP "ERROR MESSAGE" POINTER 


BEO 


38 




{{SKIP TYPEOUT IF NO POINTER 



MAINDEC 


-U-DZRKJ-D 


HACYU 27(1006) 
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DZRKJD. 


Pll 


J0-AUG-76 


14148 


ERROR 


MESSAGE 


TYPEOUT ROUTINE 




1670 


006J14 


104401 






TYPF 




{(TYPE THE "ERROR MESSAGE" 


1671 


006316 


000000 




2s: 


.WORD 





{("ERROR MESSAGE" POINTER GOES HERE 


1672 


006320 


104401 


001213 




TYPE 


/»CRLF 


(("CARRIAGE RETURN" t "LINE FEED" 


1673 


006324 


013037 


006334 


3(1 


MOV 


(R0)+,4t 


((PICKUP "DATA HEADER" POINTER 


1674 


006330 


001404 






BEO 


5$ 


{(SKIP TYPEOUT IF 


1675 


006332 


104401 






TYPE 




((TYPE THE "DATA HEADER" 


1676 


006334 


000000 




4tl 


.WORD 





{("DATA HEADER" POINTER GOES HERE 


1677 


006336 


104401 


001213 




TYPE 


rtCRLF 


{("CARRIAGE RETURN" I "LIME FEED" 


1678 


006342 


011000 




511 


MOV 


(R0),R0 


{(PICKUP "DATA TABLE" POINTER 


1679 


006344 


001004 






BNE 


7$ 


{(GO TYPE THE DATA 


1680 


006346 


012600 




6$> 


MOV 


(SP}'f,R0 


{(RESTORE R0 


1681 


006350 


104401 


001213 




TYPE 


ftCRLF 


{("CARRIAGE RETURN" & "LINE FEED" 


1682 


006354 


000307 






RTS 


PC 


{ (RETURN 


1683 


006356 






7$: 








1694 


006356 


013046 






MOV 


a(R0)>.-(SP) 


{(SAVE «(R0)+ FOR TYPEOUT 


1685 


006360 


104403 






TYPOC 




({GO TYPE--OCTAL ASCIKALL DIGITS) 


1686 


006362 


005710 






TST 


(R0) 


((IS THERE ANOTHER NUMBER? 


1687 


006364 


001770 






BEO 


6( 


(IBR IF NO 


1688 


006366 


104401 


006374 




TYPE 


,at 


({TYPE TW0(2) SPACES 


1689 


006372 


000771 






BR 


7» 


{(LOOP 


1690 


006374 


030040 


000 


8ti 


.ASCIZ 


/ / 


{(TW0(2} SPACES 


1691 




006400 






.EVEN 







1693 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1706 
1709 
1710 
1711 
1712 
1713 
1714 
17l5 
1716 
17|7 
17lB 
1719 
1720 
1721 
1722 
1723 
1724 
1725 



.SBTTL TTY INPUT ROUTINE 

( (••••••«••••••••••••••••••••••••••••••••••••«•»•*•••»•••*••••••• 

.EMABL LSB 

{(••••••••••••••••••••••••••••••••••••••••••••••••••••••••••«•••• 

{•SOFTHARE SWITCH REGISTER CHANGE ROUTINE. 
(•ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND HILL 
(•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
{•HHGN OPERATING IN TTY FLAG MODE. 



006400 


022737 


000176 


001140 ICKSHRl 


CMP 


tSHREGfSHR 


(IIS THE SOFT-SNR SELECTED? 


006406 


001074 






BNE 


15$ 


{(BRANCH IF NO 


006410 


105777 


172530 




T8TB 


•«TKS 


{(CHAR THERE? 


006414 


100071 






BPL 


ISt 


{(IF NO, DON'T WAIT AROUND 


006416 


117746 


172524 




HOVB 


»tTKB,-(SP} 


((SAVE THE CHAR 


006422 


043716 


177600 




BIC 


»*C177,(SP) 


((STRIP-OFF THE ASCII 


006426 


032726 


000007 




CMP 


•7.(SP)+ 


((IS IT A CONTROL G? 


006432 


001062 






BNE 


151 


{(NO, RETURN TO USER 


006434 


123727 


001134 


000001 


CMPB 


SAUTOBf il 


{(ARE WE RUNNING IN AUTO*MODE? 


006442 


001456 






BCO 


151 


{(BRANCH IF YES 


006444 


104401 


007135 




TYPE 


.ICNTLG 


((ECHO THE CONTROL-G CG) 


006450 


104401 


007132 


ICTSHRt 


TYPE 


rlMSHR 


((TYPE CURRENT CONTENTS 


006454 


013746 


000176 




MOV 


SHREG.-(8P) 


((SAVE SWREG FOR TYPEOUT 


006460 


104403 






TYPOC 




(iCO TYPE—OCTAL ASCIKALL DIGITS) 


006462 


104401 


007143 




TYPE 


,SMNGH 


((PROMPT FOR NEW SWR 


006466 


005046 




19tl 


CLR 


-(8P) 


((CLEAR COUNTER 


006470 


005046 






CLR 


-(SP) 


((THE NEW SWR 


006473 


105777 


173446 


7»l 


TSIB 


• (TKS 


((CHAR THERE? 


006476 


100375 






BPL 


7t 


((IF NOT TRY AGAIN 


006500 


117746 


173442 




HOVB 


a«TKB,-(8P) 


((PICK UP CHAR 


006504 


043716 


177600 




BIC 


l*C177,{5P) 


((MAKE IT 7-BIT ASCII 
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SEO 004 



1726 










1727 










1728 










1729 


006510 


021627 


000025 




1730 


006514 


001005 






1731 


006516 


104401 


007120 




1732 


006522 


062706 


000006 




1733 


006526 


000757 






1734 










1735 










1736 


006530 


021627 


000015 




1737 


006534 


001022 






1738 


006536 


005766 


000004 




1739 


006542 


001 403 






1740 


006544 


016677 


000002 


172366 


1741 


006552 


062706 


000006 




1742 


006556 


104401 


001213 




1743 


006562 


123727 


001135 


000001 


1744 


006570 


001003 






1745 


006572 


012777 


000100 


172344 


1746 


006600 


000002 






1747 


006602 


004737 


007324 




1748 


006606 


021627 


000060 




1749 


006612 


002420 






1750 


006614 


021627 


000067 




1751 


006620 


003015 






1752 


006622 


042726 


000060 




1753 


006626 


005766 


000002 




1754 


006632 


001403 






1755 


006634 


006316 






1756 


006636 


006316 






1757 


006640 


006316 






1758 


006642 


005266 


000002 




1759 


006646 


056616 


177776 




1760 


006652 


000707 






1761 


006654 


104401 


001212 




1762 


006660 


000720 






1763 










1764 










1765 










1766 










1767 










176S 










1769 










1770 










1771 










1772 










1773 










1774 


006662 


011646 






1775 


006664 


016666 


000004 


000002 


1776 


006672 


105777 


172246 




1777 


006676 


100375 






1778 


006700 


117766 


172242 


000004 


1779 


006706 


042766 


177600 


000004 


1780 


006714 


026627 


000004 


000023 


1781 


006722 


00)013 







CMP 

BNE 

TYPE 

ADD 

BR 



CMP 
BNE 
T§T 
BEQ 
MOV 
ADD 
TYPE 
CMPB 
BNE 
MOV 
RTI 
JSP 
CMP 
BLT 
CMP 
BGT 
BIC 
TST 
BEQ 

ASL 
ASL 

17$: INC 
BIS 

18$: TYPE 
BR 

.DSABL LSB 



11$: 
14$: 



15$: 
16S: 



(SP)f 125 

10S 

.SCHTLU 
16, SP 
19$ 



(SP)>«15 

16$ 

4CSP) 

lis 

2CSP),9SHR 

«6,SP 

f $CRLr 

$INTAG,#1 

15$ 

»100,9$TKS 

PCSTYPEC 

(SP),i60 

18$ 

CSP3,»67 
18$ 

(60, CSPJ-f 

2(SP) 

17$ 

CSP) 

(SP) 

(SP) 

2(SP) 

-2(SP), (SP) 
7$ 

,SQUES 
20S 



|;1S IT A CONTROL-U? 
;;BRA«ICH IF NOT 
!!YES, ECHO CONTROL-U CU) 
; J IGNORE PREVIOUS INPUT 
ijLET'S TRY IT AGAIN 



JIS IT A <CR>7 
JBRANCH IF NO 

JYES, IS IT THE FIRST CHAR? 
JBRANCH IF YES 
fSAVE NEW SWR 
J CLEAR OP STACK 
JECHO <CR> AND <LF> 
IRE-ENABLE TTY KBD INTERRUPTS? 
: BRANCH IF NOT 

JRE-ENABLE TTY KBD INTERRUPTS 

! RETURN 

jECHO CHAR 

SCHAR < 0? 

SBPAMCH IF YES 

JCHAR > 77 

JBRANCH IF YES 

JSTRIP-OFF ASCII 

lis THIS THE FIRST CHAR 

IBRANCH IF YES 

|N0, SHIFT PRESENT 

J CHAR OVER TO HAKE 

t ROOM FOR NEW ONE. 

I KEEP COUNT OF CHAR 

ISET IN NEW CHAR 

IGET THE NEXT ONE 

ITYPE 7<CR><LF> 

ISIMULATE CONTROL-U 



; }««•««•»«••«•«»••«•«»»»»«»••«•*•««««»•«•••••«»•»••«»»«••»*•••«** 

l*THIS routine; will INPUT A SINGLE CHARACTER FROM THE TTY 

;*call: 

;• rdchr ; i input a single character from the tty 

}• return here llcharacter is on the stack 

;« llwith parity bit stripped off 



MOV 


CSP),-(SP) 


S JPUSH DOWN THE PC 


MOV 


4(SP),2(SP) 


11 SAVE THE PS 


TSTB 


e$TKS 


11 WAIT FOR 


BPL 


1$ 


1 1 A CHARACTER 


MOVB 


0$TKB,4(SP) 


1 1 READ THE TTY 


BIC 


»*C<177>,4(SP) 


IIGET RID OF JUNK IF ANY 


CMP 


4(SP),*23 


J 1 IS IT A CONTROL-S? 


BNE 


3$ 


1 IBRANCH IF NO 
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1782 


006724 


105777 


172214 




2$: 


TSTB 


e$TKS 


IJWAIT FOR A CHARACTER 


1783 


006730 


100375 








BPL 


2$ 


IlLOOP UNTIL ITS THERE 


1784 


006732 


117746 


172210 






MOVB 


<>$TKB,-(SP) 


I IGET CHARACTER 


1705 


006736 


042716 


177600 






BIC 


»*C177, (SP) 


IIHAKE IT 7-BIT ASCII 


1786 


006742 


022627 


000021 






CMP 


(SP)+,»2l 


Ills IT A CONTROL-07 


1787 


006746 


001366 








BNE 


2$ 


I IIF NOT DISCARD IT 


1788 


006750 


000750 








BR 


1$ 


II YES, RESUME 


1789 


006752 


026627 


000004 


000140 


3$: 


CHP 


4(SP) , »140 


;jIS IT UPPER CASE? 


1790 


006760 


002407 








BLT 


4$ 


I JBRANCH IF YES 


1791 


006762 


026627 


000004 


000175 




CHP 


4(SP),»175 


Ills IT A SPECIAL CHAR? 


1792 


006770 


003003 








BGT 


4$ 


1 JBRANCH IF YES 


1793 


006772 


042766 


000040 


000004 




BIC 


i40,4(SP} 


SJMAKE IT UPPER CASE 


1794 


007000 


000002 






4$: 


RTI 




11 GO BACK TO USER 


1795 










1 1 •«••••••••«»••»••»»»«•••••••»•••»*••••**«••»••«•«»»•«•*•»•••••• 


1796 










;»THIS 


ROUTINE 


WILL INPUT A STRING FROM THE TTY 


1797 










l»CALL! 








1798 










• • 


RDLIN 




IIINPUT A SIRING FROM THE TTY 


1799 












RETURN 


HERE 


SI ADDRESS OF FIRST CHARACTER HILL BE ON THE 


1800 










;• 






IITERMINATOR WILL BE A BYTE OF ALL 0'S 


1801 
1802 


007002 


010346 






$PDLINI 


MOV 


R3,-(SP) 


II SAVE R3 


1803 


007004 


012703 


007110 




1$: 


HOV 


#$TTYIN,R3 


tiGET ADDRESS 


1804 


007010 


022703 


007120 




2$: 


CMP 


t$TTYIN+e,,R3 


11 BUFFER FULL? 


1805 


007014 


101405 








BLOS 


4t 


JIBR IF YES 


1806 


007016 


104410 








RDCHR 




llGO READ ONE CHARACTER FROM THE TTY 


1807 


007020 


112613 








MOVB 


(SP)+,CR3) 


J IGET CHARACTER 


1808 


007022 


122713 


000177 




10$: 


CMPB 


#177, (R3) 


II IS IT A RUBOUT 


1809 


007026 


001003 








BNE 


3$ 


llSKIP IF NOT 


1810 


007030 


104401 


001212 




4$l 


TYPE 


,tQUES 


IITYPE A '?• 


1811 


007034 


000763 








BR 


1$ 


ItCLEAR THE BUFFER AND LOOP 


1812 


007036 


111337 


007106 




3$: 


MOVB 


(R3),9$ 


J JECHO THE CHARACTER 


1813 


007042 


104401 


007106 






TYPE 


,9$ 




1814 


007046 


122723 


000015 






CMPB 


*15,(R3)+ 


11 CHECK FOR RETURN 


1815 


007052 


001356 








BNE 


2t 


J J LOOP IF NOT RETURN 


1816 


007054 


105063 


177777 






CLRB 


-1(R3) 


IICLEAR RETURN (THE 15) 


1917 


007060 


104401 


001214 






TYPE 


,tLF 


J J TYPE A LINE FEED 


1S18 


007064 


012603 








MOV 


(SPJ+rRS 


It RESTORE R3 


1819 


007066 


011646 








MOV 


(SP),-($P) 


11 ADJUST THE STACK AND PUT ADDRESS OF THE 


1820 


007070 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


II FIRST ASCII CHARACTER ON IT 


1821 


007076 


012766 


007110 


000004 




HOV 


l$TTYIN,4(SP) 




1822 


007104 


000002 








RTI 




1 1 RETURN 


1823 


007106 


000 






9SI 


.BYTE 





IlSTORAGE FOR ASCII CHAR. TO TYPE 


1824 


007107 


000 








.BYTE 





IITERMINATOR 


1825 


007110 


000010 






$TTYIN| 


.BLKB 


8. 


IlRESERVE 8 BYTES FOR TTY INPUT 


1926 


007130 


052536 


005015 


000 


tCNTLUl 


.ASCIZ 


/•U/<15><12> 


JICONTROL "U" 


1827 


007125 


136 


006507 


000012 


$CHTLGi 


.ASCIZ 


/*G/<15><12> 


IICONTROL "G" 


1838 


007132 


005015 


053523 


020122 


$MSWR: 


.ASCIZ 


<15><12>/SMR ■ 


/ 


1939 


007140 


020075 


000 












1830 


007143 


040 


047040 


053505 


IHNCHI 


.ASCIZ 


/ NEW > / 




1931 


007150 


036440 


000040 












1932 


















1833 










.SBTTL 


TYPE ROUTINE 




1834 


















1835 










1 1 ••*«**•••••*••••••••••••«»•••••*•••**•*•••»••«*••*»•**••••••••• 


1836 










{•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MOST TERMINATE WITH A BYTE. 


1837 










|»THE ROUTINE 


<ILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



MMNDEC"! l-DZRKJ-D MACVtl 27(1006) B4-0CT-76 13I0S P»GE 35 

DZRKJD.PU 3a-AUG-76 14149 TYPE ROUTINE 



SEQ 0048 



1S38 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
186S 
1866 
1867 
1868 
1869 
1970 
1871 
1872 
1873 
1874 
1975 
1876 
1977 
1878 
1879 
1880 
)98] 
18S2 
1883 
18fl4 
1885 
1886 
1887 
1888 
18g9 
1890 
1991 
1992 
1893 



t«NOTEl I 
;«N0TE2l 
;»N0TE3! 
I* 

!«CALLI 

J«l) USING A TRAP INSTRUCTION 
TYPE ,ME5ADR 

>«0R 

?• TYPE 
!• MESADR 



INULIi CONTAINS THE CHARACTER TO BE USED AS THE TILLER CHARACTER, 
»riLLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
iriLLC CONTAINS THE CHARACTER TO FILL AFTER. 



nMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



007154 


105737 


001 157 




8TYPEI 


TSTB 


SIPFLG 


;fIS THERE A TERMINAL? 


007160 


100002 








BPL 


1$ 


; > BR IF YES 


007162 


000000 








HALT 




WHALT HERE IF NO TERMINAL 


007164 


000407 








BR 


3t 


J 1 LEAVE 


007166 


010046 






1$: 


MOV 


R0f "(SP) 


1 1 SAVE R0 


007170 


017600 


000002 






MOV 


92(SP) rR0 


r I GET ADDRESS OF ASCIZ STRING 


007174 


1 1 2046 






2t 1 


WOVB 


CR0)+»*{ SP) 


f IrUon CnAKACiiLK TO M6, TlrfcU UPHU oiACK 


007176 


001005 








BNE 


4t 


;>BR IF IT ISN'T THE TERMINATOR 


007200 


005726 








TST 


t SP) + 


"J IF TERMINATOR POP IT OFF THE STACK 


007202 


01 2600 






60S 1 


MOV 


( SP) + 1 R0 




007204 


062716 


000002 




3S 1 


ADD 


*2« CSP) 


t } ADJUST RETURN PC 


007210 


000002 








RTI 




J ; RETURN 


007212 


122716 


000011 




4$: 


CMPB 


#HT, CSP) 


;»8RANCH IF <HT> 


007216 


001430 








BEQ 


8$ 




007220 


122716 


000200 






CMPB 


tCRLF,(SP) 


;»BRANCH IF MOT <CRLF> 


007224 


001006 








BME 


S« 




007226 


005726 








TST 


(SP) + 


jyPOP <CRXLF^ EQUIV 


007230 


104401 








TYPE 




• . TVDF ft C*D A un rp 
til XrC A wn AnU ur 


007232 


001213 








SCRLF 






007234 


105037 


007370 






CLR6 


$CHARCNT 


?|CLEAR CHARACTER COUNT 


007240 


000755 








BR 


2$ 




007242 


0047 37 


007324 




5$: 


JSP 


PC r STYPEC 


■"GO TYPE THIS CHARACTER 


007246 


123726 


001 156 




6S: 


CMPB 


SFILLC # C SP ) + 


fJIS IT TIME FOR FILLER CHARS.? 


007252 


001 350 








BNE 


2$ 


»JIF NO GO GET NEXT CHAR. 


007254 


01 3746 


001 154 






MOV 


SNULLi * (SP) 


;;GET OF FILLER CHARS. NEEDED 
















* 1 AND THE NULL CHAR 


007260 


105366 


000001 




7S! 


DECB 


KSP) 


IjDOES A NULL NEED TO BE TYPED? 


007264 


002770 








BLT 


6« 


f>BR IF NO— GO POP THE NULL OFF OF STACK 


007266 


004737 


007324 






J5R 


PC. STYPEC 


;jGO TYPE A NULL 


007272 


105337 


007370 






DECB 


SCHARCNT 


;>D0 NOT COUNT AS A COUNT 


007276 


000770 








BR 


7S 


MLOOP 










JHORIZONTAL TAB 


PROCESSOR 




007300 


112716 


000040 




8St 


MOVB 


»' ,(SP) 


;>REPLACE TAB WITH SPACE 


007304 


004737 


007324 




9s: 


JSR 


PC»»TYPEC 


S»TYPE A SPACE 


007310 


132737 


000007 


007370 




BITB 


*7,SCHARCNI 


MBRANCH IF NOT AT 


007316 


001372 








BNE 


9$ 


!»TAB STOP 


007320 


005726 








TST 


(SP) + 


JJPOP SPACE OFF STACK 


007322 


000724 








BR 


2S 


;»GET NEXT CHARACTER 


007324 


105777 


171620 




8TYPECS 


TSTB 


aSTPS 


JJWAIT UNTIL PRINTER IS READY 


007330 


100375 








BPL 


STYPEC 




007332 


1 16677 


000002 


171612 




MOVB 


2{SP)f «STPB 


{jLOAO CHAR TO BE TYPED INTO DATA REG. 


007340 


122766 


000015 


000002 




CMPB 


»CR,2(SP) 


;jIS CHAPfcCTER A CARRIAGE RETURN? 
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1994 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 



007346 
007350 
007354 
007356 
007364 
007366 
007370 
007372 



007374 
007374 
007376 
007400 
007402 
007404 
007406 
007412 
007416 
007420 
007422 
007430 
007432 
007436 
007442 
007444 
007450 
007452 
007454 
007456 
007460 
007462 
007464 
007466 
007470 
007472 
007474 
007476 
007504 
007510 
007514 
007516 
007530 
007524 



001003 
105037 
000406 
122766 
081402 
105227 
000000 
000207 



010046 
010146 
010246 
010346 
010546 
012746 
016605 
100004 
005405 
112766 
005000 
012703 
112723 
005002 
016001 
160105 
002402 
005202 
000774 
060105 
005702 
001002 
105716 
100407 
106316 
103003 
116663 
052702 
052702 
110223 
005720 
020027 
002746 



000012 000002 ISI 



020200 
000020 



000055 000001 



007610 
000040 



000001 
000060 
000040 



BNE 
CLRB 
BR 

CMPB 
BCQ 
INC6 
8CHARCNTI .WORD 
STYPEXI RT8 



IS 

SCHAPCNT 

STYPEX 

ILF,2CSP) 

STYPEX 

(PC) + 



PC 



: {BRANCH IF NO 

JfVES—CLEAR CHARACTER COUNT 
IIEXIT 

JJIS CHARACTER A LINE FEED? 
HBRANCH IF YES 
JJCOUNT THE CHARACTER 
MCHARACTER COUNT STORAGE 



.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

; ; ••»••••••»•»»•«•»»•»•••»•••«••••••»•••*••*»»•«*«*••»•••*»•••»*• 

;»THIS routine IS USED TO CHANGE A 16-BlT BINARY NUMBER TO A 5-DIGIT 
•♦SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;»NUHBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
;»BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;»REPLACED WITH SPACES. 
;»CALL! 

; • 



6tl 
7S1 



MOV 


NUH,-(SP) 


;iPUT THE BINARY NUMBER ON THE STACK 


TYPD5 




t;go to the routine 


MOV 


R0.-(SP) 


;;PUSH R0 ON STACK 


MOV 


R1,-CSP) 


;>PUSH Rl ON STACK 


MOV 


R2,-(SP) 


;|PUSH R2 ON STACK 


MOV 


R3,-(SP) 


nPUSH R3 ON STACK 


MOV 


R5,-(SP) 


nPUSH RS ON STACK 


MOV 


*20200>'-{SP) 


;;SET blank SWITCH AND SIGN 


MOV 


20(SP).R5 


;|GET THE INPUT NUMBER 


BPL 


1* 


;|BR IF INPUT IS POS. 


NEG 


RS 


;|MAKE THE BINARY NUMBER POS. 


MOVB 


#'-.lCSP) 


;|HAKE THE ASCII NUMBER NEG. 


CLR 


R0 


; J ZERO THE CONSTANTS INDEX 


MOV 


«SDBLK«R3 


M SETUP THE OUTPUT POINTER 


MOVB 


i' ,(R3)+ 


••SET THE FIRST CHARACTER TO A BLANK 


CLR 




;i CLEAR THE BCD NUMBER 


MOV 


«DTBL(R0)>R1 


;>GET THE CONSTANT 


SUB 


RlrR5 


; I FORM THIS BCD DIGIT 


BLT 


4S 


;|BR IF DONE 


INC 


R2 


;> INCREASE THE BCD DIGIT BY 1 


BR 


3S 




ADD 


R1,R5 


:iADD BACK THE CONSTANT 


TST 


R2 


HCHECK IF BCD DIGIT«0 


BNE 


5$ 


nFALL THROUGH IF 


TSTB 


(SP) 


;>STILL DOING LEADING 0'ST 


BMI 


7» 


MBR IF YES 


ASLB 


(SP) 


MMSD? 


BCC 


6S 


nBR IF NO 


MOVB 


1(SP),-1 CR3) 


J>YES"SET THE SIGN 


BIS 


»'0,R2 


tiMAKE THE BCD DIGIT ASCII 


BIS 


1' ,R2 


nMAKE IT A SPACE IF NOT ALREADY A DIGIT 


MOVB 


R2, (R3)t 


;jPUT THIS CHARACTER IN THE OUTPUT BUFFER 


TST 


(R0)'f 


nJUST INCREMENTING 


CMP 


R0, tie 


fiCHECK THE TABLE INDEX 


BLT 


2$ 


IIGO DO THE NEXT DIGIT 
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SEQ 0050 



19S0 


007526 


003002 


1951 


007530 


010502 


1952 


007532 


000764 


1953 


007534 


105726 


1954 


007536 


100003 


1955 


007540 


116663 


1956 


007546 


10501 3 


1957 


007550 


012605 


1958 


007552 


012603 


1959 


007554 


012602 


1960 


007556 


012601 


1961 


007560 


012600 


1962 


007562 


104401 


1963 


037566 


016666 


1964 


007574 


012616 


1965 


007576 


300002 


1966 


007600 


023420 


1967 


007602 


001750 


1968 


007604 


300144 


1969 


007606 


000012 


1970 


007610 


000004 


1971 






1972 






197 3 






1974 






1975 






1976 






1977 






1978 






1979 






1980 






1981 






1982 






1983 






1984 






1985 






1986 






1987 






1988 






1989 






1990 






1991 






1992 






1993 






1994 






1995 






1996 






1997 


007620 


017546 


1998 


007624 


116537 


1999 


007632 


112637 


20(?0 


007636 


062716 


2001 


007642 


000406 




007644 


112737 


2003 


037652 


112737 


2k904 


007660 


U2737 


2005 


007666 


010346 



177777 177776 



007610 
000002 



000030 

000001 

010045 
000002 

000001 
030006 
000005 



BGT 


8« 




!IG0 TO EXIT 


MOV 


R5,R2 




}:GET THE LSD 


BR 


6S 




tiGO CHANGE TO ASCII 


TSTB 


(SP) + 




;!WAS THE LSD THE FIRST 


BPIi 


9S 




JJBR IF NO 


MOVE 


-1 CSP) 


,-2(R3) 


SJYES--SET THE SIGN FOR 


CLPB 


(R3] 




JJSET THE TERMINATOR 


MOV 


CSP)+» 


R5 


nPOP STACK INTO R5 


MOV 


(SP)+, 


R3 


;;POP STACK INTO R3 


MOV 


(SP)+» 


R2 


jjPOP STACK INTO R2 


MOV 


fSP)+, 


Rl 


;»POP STACK INTO Rl 


MOV 


(SP)+. 


R0 


;>POP STACK INTO R0 


TYPE 


rSDBIiK 


; f NOW TYPE THE NUMBER 


MOV 


2CSP}, 


4(SP) 


! J ADJUST THE STACK 


MOV 


(SP)t, 


CSP) 




RTI 






; J RETURN TO USER 


10000. 








1000, 








100. 








10. 








.BLKW 


4 







.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
) ••»•««»»•««*«»«*««»*«•»•••••*•*«««•**•*«•»»««••«•»«••*»»•«*••*« 

•this routine is used to change a 16-bit binary number to a 6-digit 
•octal (ascii) number and type it, 

• stypos— enter here to setup suppress zeros and number of digits to type 
♦call: 

• mov num,-(sp) jjnuhber to be typed 
» typos :icall for typeout 

• .byte n ;;n»l to 6 fop number of digits to type 

• ,byte m !>h*1 or 

• JjlsTYPE LEADING ZEROS 

• n0sSUPPRESS LEADING ZEROS 
• 

• STYPON — -ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
•STYPOS OR STYPOC 

•CALLI 



•STYPOC 
•CALL! 



010043 
010045 
010042 



MOV 


NUM,-(SP] 


; J NUMBER TO BE TYPED 


TYPON 




nCALL FOR TYPEOUT 


— ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV 


NUM,-CSP) 


; J NUMBER TO BE TYPED 


TYPOC 




.•(CALL FOR TYPEOUT 


MOV 


P(SP)f-(SP) 


S JPICKUP THE MODE 


HQVB 


l(SP)fS0FILl. 


;jLOAD ZERO FILL SWITCH 


HOVB 


(SP)^ rSOMODEtl 


;; NUMBER OF DIGITS TO TYPE 


ADD 


«2.CSP) 


ADJUST RETURN ADDRESS 


BR 


STYPON 




MOVB 


tl,S0FILL 


fjSET THE ZERO FILL SWITCH 


MOVB 


#6,S0M00E+1 


;;SET FOR SIX(6) DIGITS 


MOVB 


»5,$0CNT 


SJSET THE ITERATION COUNT 


MOV 


R3f-{SP) 


;>SAVE R3 



UNDEC 


-11-DZRKJ-D 


MACYll 27(1006) 


04-OCT 


-76 13: 


08 PACE 38 




-RKJD.Pll 30-AUG-76 


14:48 


BINARY 


TO OCTAL 


(ASCII) k»0 TYPE 




2306 


037670 


013446 






MOV 


R4,-(SP) 


;SAVE R4 


2007 


007672 


010546 






MOV 


R5,-(SP) 


JSAVE R5 


2038 


007674 


113704 


013045 




MOVB 


S0M0DE*1»R4 


jGET THE NUMBER OF DIGITS TO TYPE 


2309 


007700 


005404 






NEC 


R4 




2310 


007702 


062704 


000006 




ADD 


<6,R4 


SSUBTRACT IT FOR MAX. ALLOWED 


2311 


007706 


110437 


010044 




MOVB 


R4f SOMODE 


jSAVE IT FOR USE 


2012 


007712 


113704 


013043 




MOVB 


S0FILL,R4 


;GET THE ZERO FILL SWITCH 


2313 


007716 


016535 


000012 




MOV 


12(SP)f R5 


;PICKUP THE INPUT NUMBER 


2014 


007722 


005003 






CLR 


R3 


jCLEAR THE OUTPUT WORD 


2315 


007724 


036105 




is: 


ROL 


R5 


JROTATE MSB INTO "C" 


2016 


007726 


000404 






BP 


3$ 


;G0 DO MSB 


2017 


007730 


006105 




2S: 


ROL 


R5 


JFORM THIS DIGIT 


2018 


007732 


006135 






ROL 


R5 




2019 


007734 


006105 






ROL 


P5 




2020 


007736 


010503 






MOV 


R5,R3 




2021 


007740 


006103 




3$: 


ROL 


R3 


jGET LSB OF THIS DIGIT 


2322 


007742 


105337 


310044 




DECB 


SOMODE 


(TYPE THIS DIGIT? 


2023 


007746 


100316 






BPL 


7$ 


JBR IF NO 


2324 


037750 


042703 


177770 




BIC 


#177770, R3 


jGET RID OF JUNK 


2025 


037754 


301002 






BNE 


4S 


J TEST FOR 


2026 


037756 


005704 






TST 


R4 


} SUPPRESS THIS 0? 


2027 


007760 


001403 






BEQ 


53 


:BR IF YES 


2028 


007762 


035204 




4s: 


INC 


R4 


JDON'T SUPPRESS ANYMORE 0'S 


2029 


007764 


352703 


000060 




BIS 


*'0,R3 


JHAKE THIS DIGIT ASCII 


2030 


007770 


352733 


000040 


5*: 


BIS 


#• ,R3 


IMAKE ASCII IF NOT ALREADY 


2031 


007774 


110337 


010040 




MOVB 


R3,8S 


»5AVE FOR TYPING 


2032 


010300 


134401 


010040 




TYPE 


f 8S 


>G0 TYPE THIS DIGIT 


2033 


010004 


105337 


010042 


7$l 


DECB 


SOCNT 


J COUNT BY 1 


2034 


010010 


303347 






BGT 


2S ;:BR IF MORE TO 00 


2035 


010012 


002402 






BLT 


6S >>BR IF DONE 


2036 


010014 


005204 






INC 


P4 


JINSURE LAST DIGIT ISN'T A BLANK 


2337 


010016 


030744 






BR 


2$ 


J GO DO THE LAST DIGIT 


2038 


010020 


012605 




est 


MOV 


(SP)+,R5 


t RESTORE R5 


2039 


010022 


012604 






MOV 


(5P)+f R4 


(RESTORE R4 


2340 


310024 


012603 






MOV 


CSP)+»R3 JJRESTORE R3 


2041 


010026 


016666 


000002 000004 




MOV 


2(SP),4(SP) JjSET THE STACK FOR RETURNING 


2042 


010034 


012616 






MOV 


(SP)'»>(SP) 




2043 


010036 


000002 






RTI 




(RETURN 


2344 


010040 


000 




8»t 


.BYTE 





(STORAGE FOR ASCII DIGIT 


2045 


010041 


000 






.BYTE 





(TERMINATOR FOR TYPE ROUTINE 


2046 


010042 


000 




socnt; 


.BYTE 





(OCTAL DIGIT COUNTER 


2047 


010043 


000 




t0FILLl 


.BYTE 





(ZERO FILL SWITCH 


2048 


010044 


000000 




(OMOOEl 


.WORD 





(NUMBER OF DIGITS TO TYPE 


2349 
















2050 








.SBTTL 


TRAP DECODER 




2051 
















2052 








; )••••••••••••••»•••••••«•••••••••••••••••••«•••••••••••••••••«•• 


2053 








l»THIS 


ROUTINE 


WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 


2054 








(•AND USE IT TO 


INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 


2055 








J*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


2056 








J •GO TO 


THAT ROUTINE. 




2057 
















205B 


010046 


010046 




strap: 


MOV 


R0,-(SP) 


•(SAVE R0 


2059 


010050 


016600 


000002 




MOV 


2(SP)«R0 ;:GET TRAP ADDRESS 


2060 


010054 


005740 






TST 


•(R0) ;>BACKUP BY 2 


2061 


010056 


111000 






HOVB 


(R0).R0 


(GET RIGHT BYTE OF TRAP 
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S£Q 0052 



2062 


010060 


006300 


2063 


010063 


016000 


2064 


010066 


000300 


2065 






2066 






2067 






206B 






3069 


010070 


011646 


2070 


010072 


016666 


2071 


010100 


000002 


2072 






2073 






3074 






3075 






2076 






2077 






2078 






2079 






2080 


010102 


010070 


3081 


010104 


007154 


2082 


010106 


007644 


2083 


010110 


007620 


2084 


010113 


007660 


3085 


010114 


007374 


3086 






2087 


010116 


006450 


2088 






2089 


010120 


006400 


3090 


010123 


006662 


2091 


010134 


007003 


3092 






2093 


010136 


005506 


3094 






3095 


010130 


005534 


3096 






2097 


010132 


005464 


2098 






2099 






2100 






3101 






3103 






3103 






2104 


010134 


012737 


3105 


010142 


013737 


3106 


010150 


010046 


3107 


010153 


010146 


3108 


010154 


010246 


2109 


010156 


010346 


3110 


010160 


010446 


3111 


010163 


010546 


3113 


010164 


017746 


3113 


010170 


010637 


2114 


010174 


012737 


3115 


010303 


000000 


3116 


010304 


000776 


3117 







ASL 

MOV 
RTS 



ITRPADCR0].R0 



nPOSIIION FOR INDEXING 
;> INDEX TO TABLE 
MCO to ROUTINE 



;iTHIS IS USE TO HANDLE THE "GETPRI" MACRO 



000004 000002 



$TBAP2j MOV 
MOV 
RTI 



CSP)»-(SP) 
4(SP],2(SP} 



! I MOVE THE PC DOWN 
; (MOVE THE PSH DOWN 
;> RESTORE THE PSH 



.SBTTL TRAP TABLE 



;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;»BY THE "TRAP" INSTRUCTION. 



ROUTINE 



I 

! — — — 

(TRPADI .WORD 
$TYPE 
STYPOC 
$ TYPOS 
STYPON 
STYPDS 



tTRAP2 
nCALL"TYPE 
nCALL»TyPOC 
> JCALL«TYP0S 
>»CALL«TYPON 
» ;CALL»TYPD5 



TRAP+1 (104401 ) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP'f4(104404) 
TRAP'f5(10440S) 



TIY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING 7.ER0S} 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



SGTSHR ltCALL«GTSWR 



SCKSMR 
(RDCHR 
SRDLIN 

CN.RST 

CN.BDY 

DELA.Y 



S»CALL»CKSWR 
> JCALLSPDCHR 
i fCALLBRDLIN 



TRAP+6( 104406) GET SOFT-SWR SETTING 

IBAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 

TRAP+10(104410) TTY lYPEIN CHARACTER ROUTINt 

TRAP+11 (104411 ) TTY TYPEIN STRING R0UTI1E 



;>CALL«CNT. RESET TRAP+13 ( 10441 2) CONTROL RESET ROUTINE 

J ICALL«CNT.RDY TRAP+1 3 ( 10441 3) WAIT FOR CNTRL RDY TO SET 
MCALL'DELAY TRAP+14(104414} TIME DELAY ROUTINE 



010300 
000340 



170750 
010304 
010206 



000024 
000036 



.SBTTL POWER DOWN AND UP ROUTINES 

; J »«•«•*»«•••*•••••••••«•••»•••••*••«•*••*•«««•••••«»«•«»*«*•••«* 

; POWER DOWN ROUTINE 
tPWRONI MOV 
MOV 



«SILLUP,»IPWRVEC USET FOR FAST UP 



MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 



*340>»(PWRVECt3 
R0,-(SP) 
R1,-(SP) 
R2f-(SP) 
B3,-(SP) 
R4,-(SP) 
RSfCSP) 
»SWR,»(SP} 
SP,$SAVR6 

((phrup«»«pwrve: 

.-3 



JPRI0I7 

IPUSH R0 ON STACK 

JPUSH Rl ON STACK 

(PUSH R2 ON STACK 

(PUSH R3 ON STACK 

I PUSH R4 ON STACK 

(PUSH R5 ON STACK 

(PUSH »8WR ON STACK 

;SAVE SP 

mset up vector 

MHANG UP 



UNOEC 


-U-DZRKJ-D 


MACYll 


27(1006) 


04-OCT 


-76 13108 PAGE 40 




EPKJD.Plt 


50-AUG-76 


14148 




POWER DOWN AND 


UP ROUTINES 




3118 










n •*••••••••••••••••*****•••'*•*••••••••*•••«••*********•****•*••• 


2119 










! power 


UP ROUTINE 




2120 


010206 


012737 


010300 


0000Z4 


iPWRUPI 


MOV 


•tlLLUPfffPWRVEC 


II SET FOR FAST DOWN 


3131 


010314 


013706 


010304 






HOV 


tSAVR6,SP J 


IGET SP 


3133 


010330 


005037 


010304 






CLB 


SSAVR6 ; 


I WAIT LOOP FOR THE TTY 


3133 


010334 


005337 


010304 




1*1 


INC 


•SAVR6 ; 


IWAIT FOR THE INC 


2124 


010330 


001375 








BNE 


1* ; 


lOr WORD 


3125 


010333 


013677 


170702 






MOV 


(SP)+>»SWR 1 


IPOP STACK INTO 8SWR 


3136 


010336 


013605 








MOV 


(SP)+,R5 » 


IPOP STACK INTO RS 


2137 


010240 


013604 








MOV 


(SP)+rR4 t 


IPOP STACK INTO R4 


3138 


010242 


01260) 








NOV 


(SP)+fR3 ; 


IPOP STACK INTO R3 


3139 


010244 


012602 








MOV 


(SP)-frR3 ; 


tPOP STACK INTO R3 


3130 


010246 


012601 








MOV 


(SP)+<R1 1 


IPOP STACK INTO Rl 


3131 


010350 


012600 








MOV 


(SP}'»rR0 1 


IPOP STACK INTO R0 


3133 


010353 


013737 


010134 


000034 




HOV 


*IPWRDN,*«PHRVCC 


II SET UP THE POWER DOWN VECTOR 


2133 


010260 


013737 


000340 


000036 




MOV 


*340f ftPHRVEC+S ! 


IPBI0I7 


3134 


010366 


104401 








TYPE 




REPORT THE POWER FAILURE 


3135 


010370 


010306 






SPHRMGl 


.WORD 


IPOWER 1 


IPONER FAIL MESSAGE POINTER 


3136 


010373 


013716 








MOV 


(PC)+.(SP) ; 


1 RESTART AT PFSTRT 


3137 


010374 


002306 






IPWRADI 


.WORD 


PFSTRT { 


1 RESTART ADDRESS 


2138 


010276 


000002 








RTI 






3139 


010300 


000000 






IILLUPI 


HALT 




ITHE POWER UP SEQUENCE WAS STARTED 


3140 


010302 


000776 








BR 


.•3 1 


1 BEFORE THE POdER DOWN HAS COMPLETE 


3141 


010304 


000000 






tSAVR6l 







IPUT THE SP HERE 


3143 


010306 


005015 


047520 


043537 


8P0WERI 


.ASCIZ 


<15><13>"P0WER" 




3143 


010314 


000122 














2144 












.EVEN 






2145 


















2146 












1 ERROR 


MESSAGES 




2147 


















2148 












.SBTTL 


ERROR MESSAGES 




2149 


















3150 


010316 


044534 


043515 


047440 


EMI 1 


.ASCIZ 


/TIME OUT ON RKll 


REGISTER/ 


2151 


010334 


052135 


047440 


030116 










2153 


010332 


045533 


030461 


051040 










3193 


010340 


043S0S 


0S1SU 


043534 










2154 


010346 


000133 














3155 


















3156 


010350 


043532 


044507 


052133 


EM3I 


.ASCIZ 


/REGISTER NOT CLEARED/ 


2157 


010356 


051105 


047040 


053117 










2158 


010364 


041440 


042514 


051101 










3159 


010373 


043105 


000 












3160 


















2161 


010375 


132 


041513 


030133 


EM3I 


.ASCIZ 


/RKCS ERROR/ 




2163 


010403 


051105 


047532 


000133 










3163 


















3164 


010410 


045523 


0S1503 


043440 


eM4l 


,A8CIZ 


/RKCS ERROR-ON WRITING READ ONLY BITS/ 


3165 


010416 


051132 


B51117 


0474S5 










3166 


010434 


020116 


051127 


053111 










3167 


010433 


047111 


030107 


043S33 










3168 


010440 


043101 


047440 


046116 










3169 


010446 


030131 


044503 


051534 










3170 


010454 


000 














3171 


















3172 


010455 


102 


051535 


044440 


EH5I 


.ASCIZ 


/BUS INIT DID NOT 


CLEAR RKCS/ 


2173 


010463 


044516 


020134 


044504 











HAlNOEC-ll-OZRKJ-D HACYU 27(1006) 04-OCT-76 IJIBB PAGE 41 

DZRKJO.Pll 30-AUG-76 14(48 ERROR MESSAGES 



2174 


010470 


020104 


047516 


020124 


2175 


010476 


046103 


040505 


020122 


2176 


010504 


045522 


051503 


000 


2177 










2178 


010511 


103 


052116 


046122 


2179 


010516 


051040 


051505 


052105 


2180 


010524 


042040 


042111 


023516 


2181 


010532 


020124 


046103 


040505 


2182 


010540 


020122 


045522 


0S1503 


2183 


010546 


020054 


047117 


051440 


2184 


010554 


052105 


047111 


020107 


2185 


010562 


043447 


023517 


000 


2186 










2187 


010567 


103 


052116 


046122 


2188 


010574 


051040 


054504 


042040 


2189 


010602 


042111 


023516 


020124 


2190 


010610 


042523 


020124 


043101 


2191 


010616 


042524 


020122 


047103 


2192 


010624 


051124 


020114 


042522 


2193 


010632 


042523 


000124 




2194 










2195 


010636 


042522 


044507 


052123 


2196 


010644 


051 105 


047040 


052117 


2197 


010652 


041 440 


042514 


351101 


2198 


010660 


042105 


000 




2199 










2200 


010663 


122 


053513 


020103 


2201 


010670 


051105 


047522 


000122 


2202 










2203 










2204 


010676 


045522 


040502 


042440 


2205 


010704 


051122 


051117 


000 


2206 










2207 


010711 


103 


052116 


046122 


2208 


010716 


051040 


051505 


052105 


2209 


010724 


042040 


042111 


023516 


2210 


010732 


020124 


046103 


040505 


221 1 


010740 


020122 


042522 


044507 


2212 


010746 


052123 


051105 


000 


2213 










2214 


010753 


122 


042113 


020101 


2215 


010760 


051105 


047522 


000122 


2216 










2217 


010766 


052502 


020123 


047111 


2218 


010774 


052111 


042040 


042111 


2219 


011002 


023516 


020124 


046103 


2220 


011010 


020122 


042522 


044507 


2221 


011016 


052123 


000122 




2222 










2223 


011022 


042101 


051104 


051505 


2224 


011030 


044523 


043516 


042440 


2225 


011036 


051122 


051117 


052055 


2226 


011044 


044522 


042105 


052040 


2227 


011052 


020117 


042101 


051104 


2228 


011060 


051505 


020123 


042522 


2229 


011066 


030507 


020054 


047507 



EM6; .ASCII /CNTRL RESET DIDN'T CLEAR RKCS, ON SETING 'GO'/ 

EM7I ' .ASCIZ /CNTRL RDY DIDN'T SET AFTER CNTRL RESET/ 

EH10i .ASCIZ /REGISTER NOT CLEARED/ 

EMlll .ASCIZ /RKWC ERROR/ 

EMI 3 J .ASCIZ /RKBA ERROR/ 

EM14I .ASCIZ /CNTRL RESET DIDN'T CLEAR REGISTER/ 

EMlSl .ASCIZ /RKDA ERROR/ 

EH17: .ASCIZ /BOS INIT DIDN'T CLR REGISTR/ 

GM20I .ASCIZ /ADDRESSING ERROR-TRIED TO ADDRESS REGl. GOT REG2/ 
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2230 


011074 


020124 


042522 


031107 


2231 


011102 


000 






2232 










2233 


011103 


104 


042111 


023516 


2234 


011110 


020124 


046103 


040505 


2235 


011116 


020122 


045522 


051503 


2236 


011124 


046040 


053517 


041040 


2237 


011132 


052131 


000105 




2238 










2239 


011136 


044504 


047104 


052047 


2240 


011144 


041440 


042514 


051101 


2241 


011152 


051040 


041513 


020123 


2242 


011160 


044510 


044107 


041040 


2243 


011 166 


052131 


000105 




2244 










2245 


011172 


051124 


042511 


020104 


2246 


011200 


047524 


041440 


042514 


2247 


011206 


051 101 


051040 


041513 


2248 


011214 


020123 


041047 


052131 


2249 


011222 


023505 


020054 


044103 


2250 


011230 


047101 


042507 


020104 


2251 


011236 


051047 


043505 


051511 


2252 


011244 


000047 






2253 










2254 


011246 


040506 


046111 


042105 


2255 


011254 


052040 


020117 


046103 


2256 


011262 


040505 


020122 


051047 


2257 


011270 


043505 


041055 


052131 


2258 


011276 


033505 


000 




2259 










3260 


011301 


122 


041513 


020123 


2261 


011306 


046101 


042524 


042532 


2262 


011314 


020104 


047117 


041440 


2263 


011322 


042514 


051101 


047111 


2264 


011330 


020107 


051047 


043505 


2265 


011336 


041055 


052131 


033505 


2266 


011344 


000 






2267 










2268 


011345 


124 


044522 


042105 


2269 


011352 


052040 


020117 


046103 


2270 


011360 


040505 


020122 


0S1047 


2271 


011366 


043505 


041055 


052131 


2272 


011374 


023461 


020084 


044103 


2273 


011402 


047101 


042507 


020104 


2274 


011410 


051047 


043505 


0410S5 


2275 


011416 


052131 


033462 


000 


2276 










2277 


011423 


125 


042516 


050130 


2278 


011430 


04150S 


042524 


030104 


2279 


011436 


045522 


030461 


044440 


2280 


011444 


053116 


051105 


053533 


2281 


011452 


052120 


000 




2282 










2283 




0114S6 






2284 










2285 











.ASCIZ /DIDN'T CLEAR RKCS LOW BYTE/ 



.ASCIZ /DIDN'T CLEAR RKCS HIGH BYTE/ 



EH24J .ASCIZ /TRIED TO CLEAR RKCS 'BYTE', CHANGED 'REGIS'/ 



EM25I .ASCIZ /FAILED TO CLEAR 'REG-BYTE'/ 



.ASCIZ /RKCS ALTERED ON CLEARING 'REG-BYTE'/ 



EH27J .ASCIZ /TRIED TO CLEAR 'REG-BYTl', CHANGED 'REG-BYTS'/ 



.ASCIZ /UNEXPECTED RKll INTERRUPT/ 



.EVEN 

.SBTTL error data POINTERS 
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SEQ 0056 















22ft7 


011 456 


00 1116 


001 1 62 


000000 


DTI 1 


2388 












2289 


011 464 


00 1 1 1 6 


001 162 


001 164 


DT2 ! 


2290 


011 472 


000000 








2291 












2292 


01 1 474 


001 116 


00] 162 


001 1 64 


DT20 1 


2293 


011 502 


001 1 66 


001 1 70 


000000 




2294 












???? 




00 1116 


000000 




DT2 1 1 


229o 












2 297 


011514 


00 1 1 1 6 


001 162 


001 164 


OT 


2298 


011522 


00 1166 


000000 






2299 












2 300 












2301 




































2304 






041520 




uMi : 


? a^i 




1 cidA 
US 1 v*tn 


043505 


040455 




2 30D 




042 104 


0001 22 






2307 


















04 1520 


020040 






ai 1 ^iti 


V3 1 V7**v 


043505 


042 101 




2310 


ai 1 ^AO 






05 1 040 




2 3 $ 1 


fli 1 «1M 


041 505 


042126 


000 




23 1 2 












2 3 1 3 




040 




020103 






fll 1 60^7 

a! 1 Ai a 


020040 


042440 


0501 30 




2 3 1 S 




US « 1 V J 


020040 


05 } 040 






* 




042126 


000 




23 1 7 














01 1623 


040 


050040 


0201 03 




2319 






05 3440 


047522 








042524 




05 1 040 




2321 


0116 4 4 


o*t U9 193 








2 322 












2323 


011 650 


020040 


04 1 520 


020040 


- 








042522 


053103 




2 325 


011 664 


000 104 








2 326 












2327 


011 666 


020040 


04 1 520 


020040 


DM 1 1 S 


2 328 


011674 


020040 


05 1 1 27 


052 117 




2 329 


ai 1 


0201 0S 


020040 


042522 










000 






2331 












23 32 


011713 






OHD 1 W J 


DH21 : 


2333 












23 34 


0117 20 


020040 


041520 


020040 


DH20I 


2 335 


01 1 726 


020940 


042522 


030507 




2336 


011734 


020040 


020040 


051040 




2337 


011742 


043505 


020062 


020040 




2338 


011750 


051050 


043S0S 


024461 




2339 


011756 


020040 


051050 


043905 




2340 


011764 


024462 


000 






2341 













.WORD ieRRPC«SREG0,0 

.WORD (ERRPC>tREG0>tREGl>0 

.WORD tERRPCf tREG0>tREGlr«REG2r«REG3,0 

.WORD $ERRPC>e 

.WORD SERRPCtlRECef «REGl>tREG2>ei 

.SBTTL ERROR HEADERS 

.ASCIZ / PC REG-AODR/ 

.ASCIZ / PC REGADD RECVD/ 

.ASCIZ / PC EXPCT RECVD/ 

.ASCIZ / PC WROTE READ/ 

.ASCIZ / PC RECVD/ 

.ASCIZ / PC WROTE HEAD/ 

.ASCIZ / PC/ 

.ASCIZ / PC REGl REG2 (REGl) (REG2)/ 
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2342 


011767 


040 


050040 


020103 


2343 


011774 


020040 


020040 


054502 


2344 


012002 


042524 


030040 


051040 


2345 


012010 


043S0S 


051511 


034040 


2346 


012016 


042522 


034507 


054105 


2347 


012034 


030130 


0510S0 


043505 


2346 


013032 


051051 


041505 


043126 


2349 


013040 


000 






2350 










2351 


012041 


040 


050040 


030103 


2352 


013046 


030040 


043523 


036507 


2353 


012054 


054503 


042534 


051040 


2354 


012062 


041505 


042136 


000 


2355 










2356 


012067 


040 


050040 


020103 


2357 


012074 


020040 


042532 


026507 


2358 


012103 


054502 


020124 


024040 


2359 


013110 


051503 


043451 


050130 


2360 


012116 


034040 


051503 


051051 


2361 


013124 


041505 


042136 


000 


2362 










2363 


013131 


040 


0S0040 


020103 


2364 


012136 


030040 


051040 


041055 


2365 


013144 


052131 


030061 


051040 


2366 


012152 


041055 


053131 


020062 


2367 


013160 


031040 


042455 


050130 


2368 


013166 


052103 


031040 


051055 


2369 


013174 


041505 


043126 


000 


2370 










2371 


013301 


040 


050040 


020103 


2372 


013306 


020040 


020040 


045522 


2373 


013314 


051503 


030040 


020040 


2374 


012323 


045533 


051105 


020040 


2375 


012230 


030040 


045522 


051504 


2376 


013236 


000 






2377 










2378 










2379 










2380 




000001 







.ASCIZ / PC 



BYTE REGIS (REG)EXP (REG)RECVD/ 



.ASCIZ / PC REG-BYTE RECVD/ 



DH26I .ASCIZ / PC HEG-BYT (C5)EXP {CS)RECVD/ 



DH27I .ASCIZ / PC R-BYTl R-BYT2 2-EXPCI 2-RECVD/ 



.ASCIZ / PC 
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SEQ 0058 



baoint 


002202 


DISPPE 


000174 


RDLIN 


a 


104411 


TST10 


003204 


SESCAP 


001210 


BAOTMO 


002116 


DSWR s 


177570 


RESVEC" 


000010 


TSTll 


003314 


SFILLC 


001156 


BIT0 


s 


000001 


DTI 


011456 


RK6A 




001254 


TST12 


003454 


$FILLS 


001155 


BIT00 


s 


000001 


DT2 


011464 


RKC5 




001250 


TST13 


003522 


SGDADR 


001120 


B1T01 


■ 


000002 


DT20 


011474 


RKDA 




001256 


TST14 


003630 


SGODAT 


801124 


BITaZ 


s 


000004 


DT21 


011510 


RKDB 




001260 


TST15 


003676 


$GeT42 


005360 


BIT03 


X 


000010 


DT26 


011514 


RKDS 




001244 


TST16 


004004 


tGTSMR 


006450 


BIT04 


X 


000020 


EMTVEC* 


000030 


RKEB 




001246 


TST17 


004056 


SHD « 


000000 


BIT05 


3 


000040 


EMI 


010316 


RKPRl 




001266 


TST2 


002474 


$IC«T 


001104 


8IT06 


s 


000100 


EM10 


010636 


RKVEC 




001270 


TST20 


004164 


$ILLUP 


010300 


BIT07 


c 


000200 


EMU 


010663 


RKWC 




001252 


TST21 


004240 


tINTAG 


001135 


BIT08 


■ 


000400 


EM13 


010676 


R6 


x%000006 


TST22 


004400 


SITEMB 


001114 


BIT09 


E 


001000 


EM14 


010711 


R7 


>t000007 


TST23 


004570 


SLF 


001214 


BITl 


3 


000002 


EM15 


010753 


STACK 




001100 


TST24 


005004 


SLPADR 


001106 


BIT10 


■ 


002000 


EM17 


010766 


START 




001542 


TST3 


002560 


SLPERR 


001110 


BITll 


X 


004000 


EH2 


010350 


STARTl 


002100 


TST4 


002640 


SMNEW 


007143 


BIT12 


X 


010000 


EM20 


011022 


STKLMTx 


177774 


TST5 


002720 


SMSWR 


007132 


Birn 


X 


020000 


EH22 


011103 


SMR 




001140 


TST6 


003072 


SMXCNT 


006102 


B1T14 


3 


040000 


EM23 


011136 


SWREG 




000176 


TST7 


003142 


tNULL 


001154 


BIT15 


3 


100000 


EM24 


011172 


sm 


s 


000001 


TYPOS X 


104405 


SNWTSTs 


000001 


BIT2 


a 


000004 


EM25 


011246 


SW00 


X 


000001 


TYPE « 


104401 


SOCNT 


010042 


BIT3 


X 


000010 


EM26 


011301 


SH01 


s 


000002 


TYPOC a 


104402 


SOHODE 


010044 


BIT4 


X 


000020 


EM27 


011345 


SH02 




000004 


TYPON X 


104404 


SOVER 


006066 


BITS 




000040 


EH3 


010375 


SW03 


X 


000010 


TYPOS s 


104403 


$PASS 


001100 


BIT6 


X 


000100 


EM4 


010410 


SM04 


X 


000020 


Tl 


002402 


SPOWER 


010306 


BIT7 


X 


000200 


EM43 


011423 


SW05 


s 


030040 


SAUTOB 


001134 


«PWRAD 


010274 


BITS 


X 


000400 


EM5 


010455 


SM06 


X 


000100 


SBDADR 


001122 


SPWRDN 


010134 


BIT9 


X 


001000 


EM6 


010511 


SW07 


X 


000200 


SBDDAT 


001126 


SPWRMG 


010270 


BPTVEC 




000014 


EM7 


010567 


SW0S 




000400 


SCHARC 


007370 


SPWRUP 


010206 


CKSWR 


X 


104407 


ERRVEC« 


000004 


SH09 


X 


001000 


SCKSWR 


006400 


SQUES 


001212 


CHT.RDa 


104413 


FTITLE 


001262 


SHI 


X 


000002 


SCMTAG 


001100 


$ RDCHR 


006662 


CNT.RE 




104412 


GTSWR X 


104406 


SW10 


a 


002000 


SCMl X 


000012 


tPDLIN 


007002 


CN.ROY 


005524 


GT3RG 


005424 


SWU 


X 


004000 


SCH2 X 


000024 


SRDSZ « 


000010 


CN.RST 


005506 


GT4RG 


005450 


SW12 


X 


010000 


$CM3 X 


000012 


SREGAD 


001160 


CR 


X 


000015 


HT X 


000011 


SWU 


X 


020000 


SCNTLG 


007125 


$REG0 


001162 


CRLF 


X 


000200 


IOTVEC« 


000020 


SW14 


s 


040000 


SCNTLU 


007120 


SREGl 


001164 


DDISP 




177570 


LF X 


000012 


SW15 


X 


100000 


SCRLF 


001213 


$REG10 


001202 


DELAY 


X 


104414 


MSG3 


001216 


SH2 


X 


000004 


$DBLK 


007610 


SRCGll 


001204 


OELA.Y 


005464 


PFSTPT 


002306 


SW3 


X 


000010 


SDO&GN 


005400 


$REG2 


001166 


DHl 




011526 


PIPO = 


177772 


SH4 


X 




SDTBL 


007600 


$REG3 


001170 


DHll 




011666 


PIRQVE* 


000240 


SW5 


X 


000040 


SENDAD 


005370 


SREG4 


001172 


DH2 




011546 


PR0 X 


000000 


SW6 


X 


000100 


SENDCT 


005336 


SREG5 


001174 


DH20 




011720 


PRl X 


000040 


SW7 


X 


000200 


SENDMG 


005407 


SREG6 


001176 


0H2t 




011713 


PR2 = 


000100 


SM8 


X 


000400 


SENULL 


005404 


$REG7 


001200 


DH24 




011767 


PR3 * 


000140 


SM9 




001000 


*EOP 


005302 


SRTNAD 


005402 


DH25 




012041 


PR4 » 


000200 


TBITVEa 


000014 


SEOPCT 


005330 


SSAVR6 


010304 


0H26 




012<>67 


PP5 " 


000240 


TIMER 




001264 


SERFLG 


001103 


$SCOPE 


005632 


OH27 




012131 


PR6 X 


000300 


TIHOUT 


002456 


SERMAX 


001115 


SSETUPx 


000117 


DH3 




011623 


PR7 » 


000340 


TKVEC 




000060 


SERROR 


006104 


SSTUP ■ 


177777 


DH30 




012201 


PS = 


177776 


TPVEC 


X 


000064 


SERRPC 


001116 


$SVLAD 


006040 


0H4 




(511575 


PSW a 


177776 


TRAPVEx 


000034 


SERRTB 


001272 


SSVPC = 


000204 


DH5 




011650 


PWPVEC" 


000024 


TRTVEC* 


000014 


SERRTY 


006244 


SSWR X 


165400 


DISPLS 


001142 


RDCHR = 


104410 


TSTl 




002352 


SEPTTL 


001112 


SSWRMKx 


000000 
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STIMES 
STKB 
STKS 
$TN 
STPB 



001206 
001146 
001 144 
X 000025 
001152 



STPFLG 
»TPS 
STRAP 
STRRP2 
STPP - 



001157 
001150 
010046 
010070 
00001 5 



tTRPAD 
STSTNM 
STTYIH 
STYPDS 
STYPE 



010102 
001102 
007110 
007374 
007154 



STYPEC 007324 

STYPEX 007372 

STYPOC 007644 

STYPON 007660 

STYPOS 007620 



IXTSTR 005644 

$$GET4a 000000 

S0F1LL 010043 

X 012237 



A6S. 012237 



ERRORS DETECTED: 
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DZRKJD,DERKJD/LI:ME/NL!MC:Md:CND/S0L/NSQJDERKJD,P11 
run-time: 43 24 .9 SECONDS 
RUN-TIME RATIO: 253/69x3.6 
CORE USED: 23K (45 PAGES) 



